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INTRODUCTION 



The 1130/2250 Graphic Subroutine Package 
for Basic FORTRAN IV (GSP) is a set of 
subroutines, control blocks, and communica- 
tion areas which are used in conjunction 
with the IBM 2250 Display Unit Model 4 
attached to an 1130 Computing System. The 
GSP gives the FORTRAN or Assembler-language 
programmer the capability of displaying 
images in the form of lines, points, and 
characters on the screen of the 2250. The 
GSP also provides for communication between 
the 2250 operator and the program. 



tion functions are unnecessary since these 
display programs are permanently defined 
and need no modification. 

To handle communications between the 
program and the 2250 operator, the GSP 
provides a subroutine which services inter- 
rupts from the light pen and from the 
keyboards. This subroutine may pass con- 
trol to other internal subroutines to modi- 
fy the display or build new display pro- 
grams as the light pen or keyboards are 
being used. 



GENERAL CHARACTERISTICS OF THE GSP 

The GSP may be divided into two groups 
of subroutines: external and internal. 
The external subroutines are those subrou- 
tines which are called by the user's pro- 
gram. The internal subroutines are trans- 
parent to the programmer and are not 
entered from the user's program. The 
internal programs are normally called by 
other GSP subroutines. To support the 
interaction between the user's program, the 
external subroutines, and the internal sub- 
routines, the GSP also uses several control 
blocks and communication areas (see Figure 
1). 

The GSP uses a system display, a skele- 
ton display program containing no display- 
able data but constructed to permit the 
attachment of other display programs. The 
display programs (graphic elements) which 
are attached to the system display may be 
built by the GSP as a result of CAIL 
statements in the user's, program or may 
permanently reside within certain GSP 
subroutines. 

User-defined display programs are built 
through calls to the external image manage- 
ment and image generation subroutines. 
These subroutines process the data passed 
in the calling arguments, and call upon 
internal subroutines to do some further 
processing. From the data passed, display 
programs are built. The main processing 
program may then invoke GSP subroutines 
which connect the newly built display pro- 
gram to the' system display and incorporate 
it into the system display's regeneration 
cycle. These subroutines may also be 
called upon to disconnect display programs 
from the system display. 

Display programs which permanently 
reside within the GSP are brought into the 
regeneration cycle in a similar manner. 
However, image management and image genera - 



GSP/DISK MONITOR SYSTEM INTERFACE 

The GSP operates under the direction and 
control of the Disk Monitor System, Version 
2 (DMV2) . Figure 2 illustrates the actions 
taken by the DMV2 beginning with recogni- 
tion of the +G2250 Supervisor Control Rec- 
ord through the passing of control to the 
mainline program. In general, the DMV2 
supports the GSP by (1) enabling the user 
to declare his intention to use the GSP, 
(2) converting GSP subroutines from Disk 
System Format to Core Image Format, and (3) 
loading any GSP subroutines which must 
reside in core in order for the GSP to 
operate. 

The GSP is initially accessed through 
the use of the +G2250 Supervisor Control 
Record. The +G2250 card causes GCOM, the 
GSP communication area, to be loaded as the 
first in-core subroutine after the mainline 
program. The option of requesting other 
internal subroutines to be loaded is also 
provided by the +G2250 card. 

When an XEQ Monitor Control Record, 
which indicates that a Supervisor Control 
Record (s) is to follow, is detected in the 
job stream, control passes to the Supervi- 
sor Control Record Analyzer. This subrou- 
tine examines the *G2250 record and, after 
converting the information contained on it 
into name code, places this information in 
the Supervisor Control Record Area (SCRA) . 
The information is now available to the 
Core Load Builder. When the Core Load 
Builder constructs the Load Table (4), the 
first names entered after the mainline 
program are those of GSP subroutines found 
in the SCRA. 

The purpose of having the GSP subrou- 
tines as the initial entries in the Load 
Table is to insure that these subroutines 
reside in the lower 8K of main storage. 
Residence below location 8192 is necessary 



Introduction 



The purpose of having the GSP subrou- 
tines as the initial entries in the Load 
Table is to insure that these subroutines 
reside in the lower 8K of main storage. 
Residence below location 8192 is necessary 
because the Graphic Short Branch order 
(GSB) is restricted to referencing loca- 
tions within the lower 8K of storage. The 
GSB is used in GCOM, in the optional 
character generation subroutine (GCHAR or 
GUPER), and the optional Verification 
Direct Entry subroutine (GSP12). 

The Load Table is used by the Core Load 
Builder to build a core load. Each name in 
the Load Table is searched for in the 



Location Equivalence Table (LET) to obtain 
the address of the specific subroutine on 
the disk. As each subroutine is found it 
is converted from disk system format to 
core image format and stored in the Core 
Image Buffer (CIB) . The CIB is an area on 
the disk which is used as a temporary 

the portion of the core 
reside below location 



storage area for 
load which is to 
4096. 



Immediately after the time the Core Load 
Builder converts the word which is to 
occupy location 4097, the remaining subrou- 
tines are stored directly into core. As 
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Figure 1. GSP Overview 
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ICA preface, sets the pointers to the 
specified addresses, and sets the indica- 
tors to standard values. An element corre- 
lation control block (ECCB) for the ICA is 
built using the assigned correlation value, 
and the ICA is indicated as active. 

The Generation Control Area (GCA) may te 
completely initialized by GCAIN, or ini- 
tialized in part by any of the following 
subroutines: SSCAL, which sets trie scaling 
values; SINDX, which sets the index values 
for accessing data arrays; SINCR, which 
sets the increment values; SDATM, which 
sets the x- and y-input data mode; SGRAM, 
which sets the output graphic mode; and 
SSCIS, which sets the scissor option. The 
internal subroutine GSP10 is used by GCAIN 
and SSCAL for scaling data, and by GCAIN 
and SINCR for storing data in the GCA. 

The subroutine GSPTM terminates the use 
of the GSP. 



IMAGE MANAGEMENT 

The image management subroutines provide 
a means of defining, modifying, and dele- 
ting graphic elements within an image con- 
struction area (ICA), or creating and 
including in an order program graphic ele- 
ments outside of an ICA. Figure 6 shows 
the subroutines called by the program to 
perform unique functions. The following 
internal subroutines perform common func- 
tions for the image management subroutines. 

GSP01 saves the status of the calling 
program upon entering a subroutine, stores 
any arguments in save areas provided in 
GCOM, and provides a mechanism for return- 
ing to the next sequential instruction in 
the calling program upon completion of the 
subroutine, or upon encountering an error 
condition. 

GSP02 stores overhead orders for an 
element within an ICA. 

GSP03 builds an element correlation con- 
trol block (ECCB) for a specified element, 
searches for a previously defined ECCB, 
initializes the generation control fields 
in GCOM, or transfers data between the ICA 
preface and GCOM for update functions. 

GSP04 (Push-down) moves non-deleted ele- 
ments to lower core positions within an 
ICA, overlaying elements that have been 
indicated as deleted, to make more area 
available within the ICA for the creation 
of new elements or for the extension of 
existing elements. 

GSP05 (Push-up) moves all elements fol- 
lowing a specified element to higher core 
positions within an ICA so that the speci- 
fied element may be extended. GSP05 calls 



GSP04 to provide more area if the ICA is 
full but there are elements indicated as 
deleted. 



I MAGE GENERATION 

The image generation subroutines cause 
the generation of graphic orders necessary 
to position and display an image on the 
2250 screen. Figure 7 shows the subrou- 
tines called by the program to perform 
unique functions. 

The internal subroutines perform ccirmcn 
functions for the creation of the graphic 
orders within elements in the ICA. In 
addition to the function described in Image 
Management, GSP02 can convert absolute data 
to incremental graphic orders, can generate 
graphic short branch orders to character 
stroke subroutines, and can generate abso- 
lute and incremental graphic orders. The 
internal subroutine GSP06 scissors portions 
of an image that fall outside of specified 
grid boundaries so that only that part of 
an image within the boundaries is 
displayed. 



I/O OPERATIONS OF THE 2250 

I/O commands to the 2250 are issued by 
DSPYN, the GSP I/O subroutine. This sub- 
routine is used by other GSP subroutines to 
do I/O functions and can be directly 
referenced by Assembler-language programs. 
Interrupts originating from the 2250 key- 
boards and light pen also cause I/O func- 
tions to be performed. This topic is 
covered in the section "Attention Process- 
ing." Figure 8 shows subroutines that use 
DSPYN to perform I/O operations, and the 
flow of control and data. 

GSPIN, the initialization subroutine, 
prepares the GSP to display data by calling 
upon DSPYN to start regeneration of the 
system display. The associated I/O Control 
Command (IOCC) which specifies the address 
of the system display, is sent to the 
channel interface section of the 2250. The 
2250 then begins to access and decode the 
order program. 

EXEC enters the address of the image 
entity in the system display, resets the 
no-operation bit in the branch order to the 
image entity, and calls DSPYN to start 
regeneration. The IOCC then directs the 
2250 to begin accessing orders for the 
display section of the 2250. 

TMDSP resets the nc-operation bit in the 
graphic branch order, causing the ICA to he 
bypassed during the regeneration cycle. 
DSPYN is again called to start the system 
display. 
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SPFKL lights the programmed function 
keyboard (PFKB) lights and (optionally) 
enables those keys that have been lighted. 
This subroutine constructs two words within 
DSPYN from an array specified in the call- 
ing sequence. The bit configuration in the 
two words represents the PFKB indicators 
which are to be lighted. DSPYN issues the 
command to Set Programmed Function Indica- 
tors and the two words are transferred to 
the 2 250 to light the indicators. 



GSPTM terminates use of the GSP. DSPYN 
turns off (bit configuration of zeros) the 
PFKB lights and issues the command which 
stops regeneration. Regeneration ceases 
and all registers and values are returned 
to their normal status. 

The Assembler- language programmer can 
call DSPYN directly and request each I/O 
function. The individual I/O functions are 
included in the description of the DSPYN 
subroutine. 
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LIGHT PEN FACILITIES 

The light pen subroutines are those 
which facilitate communication between the 
2250 operator and the program through the 
use of the light pen. These subroutines 
provide the services of locating positions 
on the 2250 screen and dynamically building 
graphic elements into the ICA through light 
pen tracking. 



LOCATING POSITIONS 

To locate a position on the screen, one 
of three subroutines may be called: LOCPN, 
LOCND, or LCPOS. Figure 9 shows the sub- 
routines used for locating positions on the 
screen. If the operator desires to deter- 
mine the coordinates of a specific point on 
the screen, he may signal the program to 
call LOCPN or LOCND. A call to these 
subroutines activates a branch in the sys- 
tem display to the scanning pattern. A 
call to LOCPN immediately activates the 
branch, while a call to LOCND does not 
activate the branch until the light pen 
switch is closed. Once the scanning pat- 
tern is displayed, a normal light pen 
attention may be generated to put the 
coordinates of the position of the light 



pen in an array specified by RQATN. A call 
to the LCPOS subroutine positions the 
tracking symbol at the specified coor- 
dinates by activating a branch in the 
system display to the tracking symbol and 
entering the x and y coordinates into an 
order in GSP09 which positions the tracking 
symbol. 



LIGHT PEN TRACKING 

The light pen tracking feature of the 
GSP permits the operator to dynamically 
build graphic elements through manipulation 
of the tracking symbol. As the tracking 
symbol is moved about the 2250 screen, 
points may be fixed and used as reference 
locations by graphic orders which are con- 
currently being built into a tracking enti- 
ty. Figure 10 shows the interaction of the 
light pen tracking subroutines and the 
sequence of events when an interrupt occurs 
on the tracking symbol. 

A call to the TRACK subroutine provides 
the environment necessary for light pen 
tracking by initiating the display of the 
tracking symbol and having an ECCB built 

for a tracking entity. The graphic orders 
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error processing subroutine gains control. 
Upon return from the error processing sub- 
routine, control is passed to the return 
function of GSP01. If no error processing 
subroutine has been specified, two WAIT 
instructions allow error information to te 
displayed in the accumulator and extension 
lights. The error processing subroutine 
IERRS will cause a print-out of error 
information on the console printer. 

Although the existence of an error con- 
dition within a subroutine will cause the 
termination of that subroutine, GSP01 
causes control to be passed to the next 



sequential instruction in the external 
calling program so that the program will 
not be interrupted. The location tc which 
a subroutine returns (see Figure 15) upon 
encountering an error condition is deter- 
mined by the usage of the save function of 
GSP01 which, when used by a called subrou- 
tine, establishes the address of the next 
sequential instruction (NSI) in the calling 
program. If the save function of GSP01 is 
not called by a subroutine and an error 
condition is encountered, control is passed 
to the address of the last NSI established 
by a called subroutine. 
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GLLX f GLLY = integer 

GURX, GURY = integer 1023 

XMSCL, YMSCL = real extended precision 1 

XASCL, YASCL = real extended precision 

XSINC,YSINC,XEINC,YEINC = integer 

XSIND,YSIND,XEIND,YEIND = integer 1 

XIPMD,YIPMD = integer 1 

OPMD = integer 1 

SCIS = integer 2 

Refer to Appendix A, Table 8 for a descrip- 
tion of the GCA format. 

The real value 1 stored in XMSCL and YMSCL 
is obtained by having FLOAT convert an 
integer 1. The storing is performed ly 
GSP10. 

Errors : None. 

SSCAL — Set Scaling Information 
Chart : AD 

Function ; To set scaling information in a 
GCA. 

Entry : SSCAL 

Exit ; Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the GCA. 
Argument 2 - address of the array con- 
taining the scaling data. 

Output : See "Operation." 

Operation ; The real array whose address is 
contained in argument 2 is composed of the 
following elements : 

SXL = screen lower-left x- coordinate 

SYL = screen lower-left y- coordinate 

SXU = screen upper-right x-coordinate 

SYU = screen upper-right y-coordinate 

GXL = grid lower-left x-coordinate 

GYL = grid lower-left y-coordinate 

GXU = grid upper-right x-coordinate 



GYU = grid upper-right y-coordinate 

DXL = data lower-left x-coordinate 

DYL = data lower-left y-coordinate 

DXU = data upper-right x-coordinate 

DYU = data upper-right y-coordinate 

SSCAL establishes an indexing value for 
accessing the array elements according to 
the program's precision for real values. 
GSP10 is used to access the array elements 
and perform calculations in extended preci- 
sion. The fields in the GCA set by SSCAL 
and the equations used to calculate the 
values for each field are as follows: 

Field Description 

GLLX grid lower-left x-coordinate in 
raster units (integer) 

GLLY grid lower-left y-coordinate in 
raster units (integer) 

GURX grid upper-right x-ccordinate in 
raster units (integer) 

GURY grid upper-right y-ccordinate in 
raster units (integer) 

XMSCL x-coordinate multiplication scal- 
ing factor (real) 

XASCL x-coordinate addition scaling fac- 
tor (real) 

YMSCL y-coordinate multiplication scal- 
ing factor (real) 

YASCL y-coordinate addition scaling fac- 
tor (real) 

Equations 

1. GLLX = 1023 * (GXL-SXL) 

(SXU-SXL) 

2. GLLY = 1023 * (GYL-SYL) 

(SYU-SYL) 

3. GURX = 1023 * (GXU-SXL) 

(SXU-SXL) 

4. GURY = 1023 * (GYU-SYL) 



5. 



(SYU-SYL) 
XMSCL = 1023 * (GURX-GLLX) 



(DXU-DXL) 



6. XASCL = GLLX - DXL (GURX-GLLX) 

(DXU-DXL) 

7. YMSCL = 1023 * (GURY-GLLY) 

(DYU-DYL) 

8. YASCL = GLLY - DYL (GURY-GLLY) 

(DYU-DYL) 
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IFIX is used to convert the results of 
equations 1 through 4 to integer values. 
GSP10 is used to store all results in the 
GCA. 

Errors : 

Code 1 - An element in the scaling array 
is invalid because it does not 
meet the following requirements: 

SXU > GXU > GXL > SXL 



Operation : The INPRE (integer precision) 
field in GCOM is examined in order to 
correctly access the array containing the 
index values. If the index values are all 
positive integers, they are stored in the 
start and end index fields of the GCA. 

Errors : 

Code 1 - One or more elements in the 
index array contain zeros or 
negative values. 



SYU > GYU > GYL > SYL 

SSCIS; — Set Scissoring Option 
Chart : AE 



SINCR — Set Increment Values 

Chart : AE 

Function : To set values in the GCA that 
are used as increments for generating coor- 
dinates for points, lines, or line 
segments. 



Function : To set the scissoring option in Entry : SINCR 
a GCA so that scissoring occurs at either 
the grid or screen boundaries. 



Entry : SSCIS 

Exi t: Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 
Argument 2 



address of the GCA. 
address of the value indi- 
cating the scissoring 
option. 



Output : See "Operation." 

Operation : SSCIS places a value (1 or 2) 
for the option in the SCIS field of the 

GCA. 

Error s : 

Code 1 - The value specified for the 
scissoring option is not 1 or 2. 



SINDX — Set Index Values 

Chart : AE 

Function : To set values in the GCA that 
are used to access data from input arrays. 

Entry : SINDX 

Exi t: Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the GCA. 
Argument 2 - address of the array con- 
taining the index values. 

Output : See "Operation." 



Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the GCA. 
Argument 2 - address of the array con- 
taining the increment 
values. 

Output : See "Operation." 

Operation : The RLPRE (real precision) 
field in GCOM is examined in order to 
properly access the array containing the 
increment values. The increment values are 
then stored in the start and end increment 
fields in the GCA. 

Errors: None. 



SDATM — Set Input Data Mode 

Chart : AE 

Function : To set the input data mode in a 
GCA for accessing and using data from the 
user's input arrays. 

Entry : SDATM 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 



Input : 

Argument 1 
Argument 2 



Argument 3 - 



address of the GCA. 
address of the value 



for 



setting 
mode, 
address 
setting 
mode . 



the 



x- coordinate 



of the value for 
the y-coordinate 
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Operation : EELMT finds the ECCB for the 
element currently being processed (CCB in 
GCOM) and, if it is a controlled, level- 
controlled, index-controlled, subroutine, 
or image entity, EELMT loads overhead 
orders which are stored in the ICA by 
GSP02. The element is then indicated as 
ended, and its start address is compared 
with the address of the element specified 
to be ended. If the ended element is not 
the specified element, the next outer ele- 
ment is found by the search function cf 
GSP03 and processed as above. When the 
specified element is ended, the GSP's mode 
is determined by examining GENIN in GCOM. 
If the mode is update and there is unused 
area remaining in the element, the build 
function of GSP03 builds an ECCB with a 
correlation value of /FFFF for this area. 
GSP02 stores overhead orders in the unused 
area, and DLCNT is incremented by one. The 
element pointers (NAGAP, LAGAP, and CCB) 
are updated, the mode indicator GENIN is 
set to normal, and the processing message 
displayed by UELMT is discontinued. If the 
GSP's mode is normal, the current control 
block pointer (CCB) in the ICA preface is 
updated. 



given this incomplete image 



For example, 
structure: 

12 3 
{ ( ( 



The statement CALL EELMT (1) produces 
{ ( ( ) ) } 



Subroutine 
entity 

Image 
entity 



Errors : 

Code 2 - 

Code 3 - 

Code 9 - 

Code 15 - 

Code 16 - 



verification subrou- 
tine in GSP12. 

GB I Return linkage to 

main order program. 

SGMV Sets vector mcde. 

MBA Positions beam. 

GB N Branch to tracking 
entity. 

GB N Branch to current 
rubberband vector in 
GSP09. 

GB I Return linkage to 
system display. 



The correlation 

the range 1 to 

The correlation 

refer to an 

BELMT. 

EELMT has been 

GSP was in exte 

mode. 

The element 

limits specifie 

ELEND of the 

ECCB. 

The element ha 

ended. 



value is not in 
32767. 

value does not 
element begun by 

called while the 
rnal generation 

is not in the 

d by ELSTA and 

current update 

s already teen 



DELMT — Delete Element 



statement CALL 



EELMT 



(3) 



Whereas the 
produces: 

{ ( ( ) 



See the "Overview" of IBM 1130/2250 Graph ic 
Subroutine Package for Basic FORTRAN IV 



(C27-6934) for an explanation of 
bols used above. 



the sym- 



An element is ended by storing certain 
overhead orders at the end of the element 
and updating the element end address 
(ELEND) and element indicator (INDIC) in 
the element's ECCB. The selection of over- 
head orders depends on the element type, as 
follows: 



SPM 



Element 
Uncontrolled 
entity 

Controlled 

entity and 
Index-controlled 

entity 



Level-controlled GB I 
ent ity 



Orders Reason 
None 



Disable detects. 



Return linkage to 
right bracket of the 



Chart: BC 



Function : 
elements. 



To delete one or more defined 



Entry : DELMT 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling sub- 
routine or program. 

Input : The address of the correlation 
Value of the element to be deleted. 

Output : None. 

Operation : GSP03 searches for the ECCE of 
the element to be deleted. INDIC in the 
ECCB is tested to determine the type of 
element. If the element is an included 
element (a subroutine identified by IELMT), 
the ECCB for this element is placed on the 
available chain and its correlation value 
set to zero. 

If the element is a subroutine entity, 
the start address is decremented by two to 
include the overhead orders preceding the 
element. Any type of element, other than 
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an included element, must have been ended 
before it may be deleted. 

When an element has been deleted, its 
correlation value in the EGCB is set to 
hexadecimal FFFF, and the delete count 
(DLCNT) in the ICA preface is incremented 
by one. Any ECCBs which point to elements 
nested within the deleted area are put on 
the available chain. The correlation 
values in them are set to zero to indicate 
that they may be reused. 

Error s ; 

Code 2 - The correlation value is not in 

the range 1-32767. 
Code 3 - The ECCB is not found by GSP03. 
Code 6 - The element is not ended (not 

applicable to an included 

element) . 
Code 9 - The generation mode is external. 



If the forward pointer of the ECCB for 
the specified element, or any ECCB whose 
element is nested within the specified 
element, is zero, NCBAU in the ICA preface 
is set to zero. Otherwise, NCBAU is loaded 
with the address of the next ECCB after the 
ECCB for the specified element. 

Note ; The update function is ended by a 
call to EELMT in the problem program. 



Errors 



type is not in the 



Code 1 - The element 

range 1-6. 
Code 2 - The correlation value is not in 

the range 1-32767. 
Code 3 - The ECCB is not found by GSP03. 
Code 6 - The element found is not ended. 
Code 7 - There is no active ICA. 
Code 9 - The GSP is already in update or 

external generation mode. 



UELiyrr — Update Element 

Charts ; BD,BE 

Function ; To modify an element and its 
ECCB so that new orders may be stored in 
the element and any elements nested within 
it. 

Entr y ; UELMT 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling sub- 
routine or program. 



Input ; 
Argument 



of the correlation 



1 - address 
value. 
Argument 2 - address of the element type. 

Output : None. 

Operation : UELMT tests the validity of the 
element type and correlation value, and 
tests ACICA in GCOM to ensure that there is 
an active ICA. GSP03 searches for the 
element specified by argument 1 and further 
tests are made to ensure that the element 
is ended and that GSP is not in update or 
external generation mode. 

If there is an active display, it is 
replaced by a processing message, and DELMT 
is entered. Upon return, the generation 
mode is set to update, and GSP03 transfers 
generation control data from GCOM to the 
ICA. The pointers in the ICA are modified, 
and DLCNT (which had been incremented by 
one in DELMT) is decremented by one. NAGAP 
and LAGAP in GCOM are set to reflect ELSTA 
and ELEND in the ECCB. INDIC is changed to 
show the new element type, and new overhead 
orders are stored in the element. GNOP 
orders are stored in the remainder of the 
element. 



XELMT — Extend Element 



Chart : BF 



Function ; To indicate an element that is 
to be extended. 

Entry ; XELMT 

Exit ; Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input ; 

Argument 1 - 

Argument 2 - 



address 

value. 

address of the 

mating 

points, 

which 



of the correlation 



value esti- 

the number of lines, 

or line segments by 

the element is to be 



extended. 



Output ; None. 



Operation : XELMT tests ACICA in GCOM to 
ensure that there is an active ICA and 
tests the validity of the two arguments, 
storing the estimated number (Argument 2) 
in ICNTR. GSP 03 then searches for the ECCB 
specified by argument one. Tests are made 
to ensure that the element type is valid, 
that the element is ended, and that the 
generation mode is not update or external. 
GENIN in GCOM is set to indicate update 
generation mode, and GSP03 transfers 
generation control data from GCOM to the 
ICA preface and initializes GCOM with stan- 
dard values. NAGAP, LAGAP, and CCB are 
saved in NAVWD, EAVA, and SCCB, respective- 
ly, and the ECCB address is stored in CUCB 
and CCB. LAGAP and NAGAP are modified to 
point to the end of the element area 
referred to by the ECCB and the beginning 
of the area to which graphic orders will be 
moved . 
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Output ; See "Operation." 

Operation : If the correlation value is 
zero, an SGMV order is placed, if neces- 
sary, in the ICA by the store function cf 
GSP02. The generation function of GSP02 
then generates positioning orders for the 
coordinates specified by arguments 2 and 3. 
If the correlation value is non-zero, the 
search function of GSP03 attempts to find 
the ECCB for the element. If this is a new 
element, the build function of GSP0 3 
creates an ECCB for an origin entity, and, 
using the store function of GSP02, places 
an SGMV order in the ICA. The generation 
function of GSP02 generates positioning 
orders using the specified coordinates. 

If the search function of GSP03 finds 
the ECCB for an origin entity and it is not 
three words in length, or if the element is 
three words long and the output mode is 
incremental, UELMT updates the element, and 
an SGMV order is placed in the ICA by the 
store function of GSP02. The generation 
function of GSP02 generates positioning 
orders for the specified coordinates, and 
EELMT ends the update function. The ECCE 
for the element is then modified to indi- 
cate that the element is an origin entity 
(see "Comments" below) . 

If the element is three words long and 
the output mode is not incremental, NAGAP 
and LAGAP are stored, and the generation 
function of GSP02 updates the origin enti- 
ty. NAGAP and LAGAP are restored, and 
GSP03 restores the normal mode by transfer- 
ring generation control data from the ICA 
preface to GCOM. 

Errors : 



PSGMT - for Plot Line Segments 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
subroutine. 

Input : 

For PLINE and PPNT 

Argument 1 - address of the GCA. 

Argument 2 - address of the x-coordinate 

array. 
Argument 3 - address of the y-coordinate 

array. 
Argument 4 - address of the count. 



For PSGMT 
Argument 1 
Argument 2 

Argument 3 

Argument 4 

Argument 5 

Argument 6 



address of the GCA. 
address of the x-starting 
coordinate array, 
address of the y-starting 
coordinate array, 
address of the x-end coor- 
dinate array. 

address of the y-end coor- 
dinate array, 
address of the count. 



Output : See "Operation." 

Operation : The subroutine determines from 
the MDLST field in GCOM whether or not a 
graphic mode order (SGMV or SGMP) is 
needed. If so, the appropriate order is 
stored in the ICA by the store function of 
GSP02, and MDLST is updated to reflect the 
new graphic mode. Generation of orders is 
then performed by the generation function 
of GSP02. The ICNTR field in GCOM is used 
to indicate to GSP02 the number of lines, 
points, or line segments to be generated. 



Code 2 - The correlation value is not in Comments : At each entry point an indexing 

the range 1 to 32767. 
Code 4 - The ECCB found by GSP03 is not 

for an origin entity. 
Code 9 - MVPOS is called to redefine an 

origin entity while in update 

mode. 



Comments : When UELMT updates an origin 
entity, it treats the element as an uncon- 
trolled entity. MVPOS modifies the INDIC 
field of the ECCB to indicate that it is an 
origin entity. 



value is loaded into index register 2, and 
control is passed to common coding. The 
common coding uses indexing to access these 
constants that are appropriate for line, 
point, or line segment plotting. The con- 
stants are arranged to facilitate this 
technique. 



Errors : 

Code 1 - The count is not 
1-32767. 



in the range 



PTEXT — Plot Text 



PLINE/PPNT/PSGMT — Plot Lines, Plot 
Points, Plot Line Segments 

Chart : CB 

Function : To generate orders for plotting 
lines, points, or line segments. 

Entry : 

PLINE - for Plot Lines 
PPNT - for Plot Points 



Chart : 



CC 



Function : To generate graphic data to 
produce characters and symbols. 

Entry : PTEXT 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 
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for the boundary point (PT4 
stored in NGXI and NGYI. 



or PT6) are 



For the second type of vector (outside 
to inside), positioning may be required. 
The coordinates for the boundary point (PT4 
or PT6) are stored in NPXI and NPYI, and 
the current computed coordinates (PT2) are 
stored in NGXI and NGYI. 

For the last type of vector (outside 
through to outside) , a computation is made 
to determine the relative proximity of the 
two boundary points to the last computed 
coordinate. The coordinates of the nearest 
boundary point (PTU or PT6) are stored in 
NPXI and NPYI, and the coordinates of the 
other boundary point (PT3 or PT5) are 
stored in NGXI and NGYI. 

Errors: None. 



Argument 3 - address of the opticn cede 
defining the type of Argu- 
ment 2 and the address at 
which regeneration is to 
start as follows: 

0=corr elation value, and the 
use of the switch trap in 
system display is desired. 
l=correlation value, and no 
switch trap is desired. 
2=arguments 1 and 2 are dis- 
regarded; start at the next 
order address. 

3=address of an order pro- 
gram, and the switch trap is 
desired. 

4=address of an order pro- 
gram, and the switch trap is 
not desired. 



2250 I/O SUBROUTINES 

The 2250 I/O subroutines are those which 
issue I/O commands to the 2250 and are 
called by the FORTRAN program to do I/O 
operations. The following is a list of I/O 
subroutines and their functions: 

• EXEC, which identifies an image entity 
and attaches it to the system display. 



TMDSP, which disconnects the 
entity from the system display. 



image 



SPFKL, which identifies the programmed 
function keyboard lights which are to 
be lighted. 

DSPYN, which issues I/O commands to the 
2250 and handles interrupts from the 
2250. 



EXEC — Execute Display 

Chart : DA 

Function : To start regeneration of an 
image entity on the 2250 display unit. 

Entry : EXEC 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the correlation 
value of the ICA. 

Argument 2 - address of the correlation 
value of an image entity; or 
(Assembler language only ) 
the address of the first 
order of an order program. 



Output : See "Operation." 

Operation : DSPYN resets the 2250, and EXEC 
examines the option code (argument 3) to 
determine the type of data passed in argu- 
ment 2. If a correlation value is speci- 
fied, the switch trap is set dependent upon 
the option specified, and the address of 
SD1 or STMR1 is stored in ASD in GCOM. If 
the ICA specified in argument 1 is the 
active ICA, GSP03 finds the specified iirage 
entity. If it is not the active ICA, EXEC 
finds the specified ICA and performs its 
own search to find the specified image 
entity. 

The address of the found image entity is 
compared with the IMECB field in GCOM. If 
they are the same, DSPYN starts regenera- 
tion of the system display and return is 
made to the next sequential instruction in 
the calling program. If they are not the 
same, DSPIN in GCOM is set to indicate 
execute status, the address of the iirage 
entity is stored in the graphic branch 
(SD5AD) in the system display, and the 
branch is made operational. DSPYN starts 
regeneration of the system display and 
control is returned tc the calling program. 

If the Assembler-language programmer 
specifies an address of an order program in 
argument 2, the switch trap and ASD are set 
dependent upon the option code (argurrent 
3) . The address of the order program is 
stored in the graphic branch (SD5AD) in the 
system display, and the branch is made 
operational. DSPIN is set to indicate 
execute status and DSPYN starts regenera- 
tion of the system display. 

If argument 3 specifies that the display 
is to restart at the next order address, 
the address is obtained from the field 
NOADR in GCOM and stored in a graphic 
branch (BRNCH) in an order program in EXEC. 



GSP Subroutines 45 



The graphic order program has the following 
format: 



OPT2 


STMR 


GRAMD 


SGMP 


MBA 


DC 




DC 




SPM /A 



MODCH 



BRNCH 



GNOP 



GB *-* 



Tlie x- and y-coordinates (ATNX and ATNY) 
for the move beam absolute order are found 
in GCOM and stored in location MBA. The 
order stream prior to the next order 
address is searched for a character or 
graphic mode order. A found character mode 
order is stored in MODCH, and a found 
graphic mode order is stored in GRAMD. The 
address of this order program is stored in 
the parameter list of the LIBF to DSPYN. 
This order program ensures that the display 
resulting from the order series starting at 
the next order address will have the attri- 
butes of the image entity within which it 
is nested. DSPYN starts regeneration of 
the order program and return is made to the 
calling program. 



Note ; The Graphic Branch Indirect order at 



Output : See "Operation." 

Operation : TMDSP sets the following graph- 
ic branch orders in the system display to 
perform no-operation: 

• Branch to the processing message sub- 
routine (SD2) 

• Branch to the scan subroutine (SD3) 

• Branch to the tracking symbol subrou- 
tine (SD4) 

• Branch to the image entity (SD5) 

DSPYN is then used to restart the system 
display. The DSPIN field in GCOM is set to 
indicate that the display has been ter- 
minated. The ICACB field in GCOM is set to 
zero. 

Errors : 

Code 9 - The display has already been 
terminated. 



SPFKL — Set Programmed Function Keyboard 
Lights 

Chart : DC 

Function : To light the specified pro- 
grammed function lights and (if requested) 
selectively enable those keys which are 
lighted. 



the end of an image entity is not modified. Entry : SPFKL 



Errors: 

Code 1 - Argument 3 (option code) is not 

in the range 0-4. 
Code 2 - The correlation value for the 

ICA or the image entity is not 

in the range 1-32767. 
Code 3 - The ECCB is not found by GSP03, 

or by EXEC. 
Code 4 - The ECCB found is not for an 

image entity. 
Code 5 - The image entity is not ended. 
Code 9 - The GSP is in update mode. 



TMDSP -- Terminate Display 

Chart : DB 

Function : To stop the regeneration of an 
image entity. 

Entry : TMDSP 

Exit : Returns through GSP 01 to the next 
sequential instruction in the calling 
program. 

Inpu t : None. 



Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 

Input : 

Argument 1 - address of the selective 
enable code. 

Argument 2 - address of the array indica- 
ting the lights to be lit. 

Argument 3 - address of the count of the 
array elements. 

Output : None. 

Operation : The arguments are tested to 
ensure their validity. The array indica- 
ting the lights to be turned on is accessed 
to set the bit pattern for the two word 
parameter passed to DSPYN. DSPYN is then 
called to set the programmed function key- 
board lights specified. The selective 
enable code is examined, and, if it is 
zero, the SATEN field specifies the enable 
status of the programmed function keyboard. 
If enabled, a hexadecimal FFFF is stored in 
PFKL1 and PFKL2 in GCOM. If disabled, 
zeros are stored in PFKL1 and PFKL2. If 
the enable code is one, and the programmed 
function keyboard is enabled, the parameter 
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designating the enabled lights is stored in 
PFKL1 and PFKL2. For all conditions DSPYN 
is called to start regeneration. 



Errors: 



is 



Code 1 - The selective enable option 
not or 1; or 

the count of the array elements 
is not in the range -1 to +32; 
or 

the value indicating the lights 
to be set is not in the range 
to 31; or 

the count of array elements is 
32, but the elements contain 
values other than or 1. 

Code 12 - The selective enable option is 
1, but the programmed function 
keyboard is not enabled. 



DSPYN — 2250 I/O Subroutine 

Charts : DD, DE f DF,DG,DH,DJ 

Function ; To provide interrupt services 
(i.e., the 2250 ISS) for the 2250 Display 
Unit, Model 4; to provide I/O functions for 
the Assembler-language programmer and the 
GSP; or to store the addresses of several 
direct entry subroutines in GCOM. 

Entry : 

1. DSPYN for I/O operations. 

2. ISSDP for attention processing opera- 
tions. 



Exit: 



Returns to the next sequential 



instruction in the calling program through 
the address stored in the entry word. 

Input : 

1. Address of the I/O function code 

2. Address of the I/O area or address of 
direct entry subroutine 

3. Address of error routine 

Output : 

1. Specified I/O function 

2. Information stored in the attention 
data array 

Operation : DSPYN operation is divided into 
the following areas: 

1. Input/Output operations 

a. Start Regeneration 

b. Set Programmed Function Lights 

c. Read Status 

d. No-operation 

e. Reset Display 

f. Sense Device Status Word 



2. Store direct entry subroutine address 

3. 2250 attention-handling operations 

a. CANCEL key attention 

b. END key attention 

c. Alphameric keyboard attention 

d. Programmed function keyboard atten- 
tion 

e. Order- control led attention 

f . Light pen attention 

4. Error handling 

INPUT/OUTPUT OPERATIONS : The first func- 
tion of DSPYN is to give input/output 
capabilities to the Assembler-language pro- 
grammer. Upon entry from the Assembler- 
language program, DSPYN examines the func- 
tion argument to determine the proper I/O 
function to be executed. Table 1 contains 
the I/O operations, function codes, and 
their associated entry points (the last two 
characters of 1 the entry point are the 
hexadecimal value for the function code) . 

Start Regeneration : This section of DSPYN 
stores the address of the first order of 
the display program in the I/O control 
command used to start execution of the 
display program. A branch is made to DPN70 
(Sense Device) to obtain the Device Status 
Word (DSW) . If the DSW indicates that a 
display is not currently regenerating, the 
first order in the display program is 
examined to determine if it is an uncondi- 
tional Graphic Interrupt (GI) . A GI order 
causes a branch to the DSPYN error routine; 
otherwise a branch is made to DPN50 to 
issue the XlO-Start Regeneration. If the 
2250 is busy, a branch is made to DPN4 8 to 
stop regeneration of the image. Once 
regeneration has ceased, the first order is 
inspected to see if it is a GI and normal 
execution continues. Two attempts are made 
to start regeneration of the new display. 
After the second attempt, if the DSW does 
not indicate that the 2250 is busy, control 
is passed to the DSPYN error routine. 

Table 1. I/O Operations, Function Code, 
and Entry Points 



Operation 

Start Regeneration 

Set Programmed 
Function Lights 

Read Status 

No-operation 

Reset Display 

Sense Device 



Entry Point 

and Function Code 

DPN50 

DPN58 

DPN60 
DPN40 
DPN48 
DPN70 



L J 
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Set Programmed Function Lights ; This sec- 
tion of DSPYN puts the address of the bit 
pattern to be displayed on the PFKE in the 
two indicator words found at the address in 
the IOCC and issues the XlO-Set Programmed 
Function Lights. 

Read Status : This section of DSPYN moves 
six words containing the status of the 2250 
at the time of the attention from ASM60 to 
the area specified by the user. ASM60 is 
an area within DSPYN which, at the time of 
an attention, receives 6 words of data from 
GCOM indicating the status of the 2250. 
When the data has been transferred to the 
user's area, the first word of ASM60 is 
made negative to indicate that at the tine 
of the next attention, ASM60 is free to 
receive new status information. 



the entire direct entry subroutine 
table in GCOM is set to zero. 



branch 



No Operation : 



This section of DSPYN 



returns control to the calling program 
without performing any operations. 



Reset Display : 



This section of DSPYN 
command which stops 



issues the XIO 
regeneration of the display and turns off 
the PFKB lights. When control returns, a 
branch is made to access the DSW. The DSW 
is tested to determine if the 2250 is still 
busy. If the 2250 is busy, a second 
attempt is made to stop regeneration by 
issuing the command again. A second unsuc- 
cessful attempt causes a branch to the 
error routine specified by the user. If nc 
error routine is specified, or if the 
user' s error routine returns control with 
the error code still in the accumulator, 
control passes to the standard error rot- 
tine. (See "Error Handling"). If the 2250 
is not busy, control returns to the calling 
program. 

Sense Device : Upon entering the Sense 
Device portion of DSPYN, the accumulator is 
set to zero. An XIO — Sense Device 
control command is issued to place the DSW 
in the accumulator. When control returns, 
a test is made to determine if the request 
has been successful. If the accumulator is 
not zero, a return is made to the calling 
program. If the accumulator is zero, a 
second attempt is made to get the DSW. 
Failure to complete the operation on the 
second attempt causes control to pass to a 
user-defined or the GSP error routine. 



STORE 



DIRECT ENTRY SUBROUTINE ADDRESS: 



When DSPYN is entered, the function code is 
examined. A code of /194n (n=l-7) causes a 
branch to DPN4X. The function code is 
again examined resulting in the direct 
entry subroutine address being stored in 
the appropriate field in GCOM. An address 
of zero stored in GCOM indicates, at the 
time of an attention, that no direct entry 
routine is specified for that type cf 
attention. If the function code is /1947, 



2250 ATTENTION HANDLING SUBROUTINE : When 
an attention occurs, the 2250 attention 
processing subroutine is entered via I1SX3. 
Upon entry, an XIO-Read Status is executed 
and the result placed in GCOM, the GSP 
communications control block. The XIO-Read 
Status puts 6 words of data describing the 
2250 at the time of the interrupt into 
GCOM. (If GSP is not being used, the 6 
words of status information are placed in 
an alternate area (ASM60) within DSPYN.) A 
series of tests is made to insure that the 
Read Status produced valid information. 
Invalid status information causes a branch 
to the error routine. Valid 2250 status 
information is then placed in ASM60, an 
area within DSPYN from which it may be 
accessed by the user. Before the status 
information is moved to ASM60, a test is 
made to determine that the status informa- 
tion associated with the last processed 
attention has been transferred to the 
user's area. The new data is transferred 
only if the previous data has been trans- 
ferred. The specific types of attentions 
are then processed as follows: 

CANCEL key attention : An attention pro- 
duced by the CANCEL key causes an indicator 
(CNIND) within DSPYN to be set to 1. A 
special routine is then entered which saves 
the ILSX3 return address. The ILSX3 return 
address is modified to the address of a 
wait routine and control passes to the wait 
routine. An XIO is issued to start 
regeneration at an address which displays 
the CANCEL frame. The CANCEL frame display 
contains 3 options, one of which the opera- 
tor may choose to determine the course his 
program will take. The format cf the 
CANCEL frame is shown in Figure 17. 

Each selection is composed of a set of 
orders which include one Graphic Interrupt 
Conditional order. When a detect is made 
on one of these selections and the light 
pen switch is closed, the order controlled 
attention causes control to pass to the 
appropriate processing routine with in 
DSPYN. As each attention occurs, the CNIND 
indicator is examined to determine whether 
the CANCEL frame is being displayed. If it 
is being displayed, control returns through 
the ILS to the wait routine. Order con- 
trolled attentions are examined to deter- 
mine which selection in the CANCEL frame 
the operator detected on. An attention on 
* TERMINATE causes the program to terminate 
(via a CALL EXIT) without a storage dump. 
An attention on * DUMP results in program 
termination with a dump of main storage. 
An attention on * RESUME restores the data 
stored frcm the original CANCEL attention, 
restarts the display, and returns control 
to be interrupted program. 
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ICURS, which establishes message 
collection mode for entering data from 
the alphameric keyboard. 



• RCURS, which 
mode. 



ends message collection 



BCNV, which converts real or integer 
values to EBCDIC, or vice versa. 



GCHAR — Character Strokes 

Chart : None . 

Function : To create strokes required by 
GSP subroutines PTEXT, DFMSG, GSP07, and 
GSP02 (text function). 

Entry : GCHAR 

Exit ; Not applicable. 

Input : Not applicable. 

Output: Not applicable. 

Operation : This subroutine is selected for 
loading by leaving column 13 on the *G2250 
supervisor record card blank. The address 
of GCHAR is indicated to other GSP subrou- 
tines by GSPIN. 

The entry point GCHAR is the base for 
relatively addressing a 258 word table of 
Graphic Short Branch (GSB) orders to char- 
acter stroke subroutines. This table 
corresponds to 256 EBCDIC values with 
decimal values 0-255 and hexadecimal values 
00-FF. Providing character strokes for 92 
standard characters (upper- and lower-case 
letters, digits 0-9, and special charac- 
ters) , GCHAR is indexed by the EBCDIC value 
to reference the appropriate GSB (i.e., 
GCHAR+226 references upper case S) . GCHAR+ 
256 is a GSB to a special null for the 
cursor. GCHAR+257 is a GSB to the cursor. 



For the remaining 164 values for which 
no standard character is assigned, the 
table references a "not available" charac- 
ter appearing as a superscript N and a 
subscript A in the same grid. GCHAR may be 
updated to include non-standard characters 
by replacing the GSB of a value to the "not 
available" character with a GSB to the new 
character stroke subroutine. 



Since the GSP provides for translating 
light pen attentions on characters and 
translating GSB orders in message entities 
to the correct EBCDIC values, the format of 
all character stroke subroutines in GCHAR 
is fixed. The following example of upper- 
case A illustrates this format: 



DC 
CS 
CS 
A DBS 
DBS 
MBS 
DBS 



.A 



EBCDIC value 



R 



4,0 Superscript Entry 

1,0 Subscript Entry 

3,7 Normal (aligned) Entry 

6,0 

5,2 

1,2 



The GSB in the table at displacement 193 is 
a GSB to label A. GSP implementation will 
subtract 1 from the address in the GSB 
order to produce a subscripted character 
and 2 to produce a superscripted character. 

For the translation function, the GSP 
will test the order at the modified address 
to see if it is a control stroke order 
(CS) . If so, it will further test to see 
if it is a subscript control stroke order. 
Thus, depending upon the stroke order spec- 
ified by the GSB address, the GSP will 
subtract 1, 2, or 3 to obtain the EBCDIC 
value for the stroke subroutine. 

Note ; Strokes which would not normally use 
subscripting or superscripting (space, 
null, etc.) will have this same format for 
consistency in implementation. Therefore, 
if any new characters are added to GCHAR, 
they must also follow this format. 



GUPER — Upper Case Character Strokes 

Chart: None. 

Function : This subroutine provides the 
branching table capability of GCHAR except 
that when the table is indexed to a lower 
case letter, the GSB addresses the upper 
case of that letter. Lower case letters 
are not available. 

GUPER is selected for loading by punching a 
"U" in column 13 of the *G2250 card. 

Entry : GUPER 

Note : For further information, see the 
similar subroutine, GCHAR. 

DFMSG — Define Message Entity 
Chart : GA 



Function: 



To create or reinitialize a 



message entity. 

Entry : DFMSG 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 
program. 
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Input : 

Argument 1 



the correlation 



address of 

value. 
Argument 2 - address of the size, in 

characters, of the element. 
Argument 3 - address of the character 

size option (basic cr 

large) . 
Argument 4 - address of the initializa- 
tion character option (blank 

or null) . 



Output : A new or modified 
and corresponding ECCB. 



message entity 



Operation : DFMSG tests the validity of the 
four arguments, and GSP03 searches for the 
ECCB specified by argument 1 (correlation 
value) . If GSP03 returns a zero, indicat- 
ing that the ECCB is not found, arguments 
2, 3, and 4 are retested to ensure non-zero 
values, and GSP03 builds an ECCB for a 
message entity. GSP02 stores in the mes- 
sage entity a Set Character Mode order 
(SCMB or SCML) and a Graphic Short Branch 
(GSB) to the special cursor null. The text 
function of GSP02 initializes the message 
entity with GSEs to the null or blank 
character as specified by argument 4. 
GSP02 stores a GNOP at the end of the 
element to terminate character mode, and 
ELEND in the message entity's ECCB is set 
to reflect the end address of the element. 
The exit phase is then entered. 

The initialization character option 
value determines whether the message entity 
is to remain unchanged (value=0) , if it is 
to be filled with GSBs to the null charac- 
ter (value=l) , cr if it is to be filled 
with GSBs to the blank character (value=2). 
If a message entity is found by GSP03, a 
new Set Character Mode order is stored, if 
necessary, and the length of the element is 
compared with the length specified by argu- 
ment 2. 

If the initialization value is not zero, 
an update phase is entered regardless cf 
the relative length of the element to that 
specified. In the update phase, DSPYN 
removes the address of GSP07 from GCOM, 
through which GSP07 is entered, thus pre- 
venting any possible movement of the cur- 
sor.. The ECCB is set to indicate an 
uncontrolled entity, and UELMT resets the 
pointers in the element's ECCB and in GCOM, 
and adjusts the length of the element if 
necessary. DFMSG then proceeds as though 
an ECCB for a new message entity had been 
built. 

If the initialization value is zero ard 
the element length is the same as that 
specified, no further processing occurs. 
If the initialization value is zero and the 
element is longer than that specified, a 
test is made to determine if the cursor or 
cursor null is within the limits of the new 
message entity. If it is not, it is placed 



in the last position in the new element and 
CURAD in GCOM is updated. The update phase 
is entered and, upon return, a GNOP is 
stored in the end of the element to termin- 
ate character mode. The exit phase is then 
entered. 

If the initialization value is zero and 
the present length of the element is short- 
er than that specified, ELSTA in the ECCB 
is set to reflect the address of the GNOP 
order at the end of the element and ICNTR 
is set to indicate the additional space 
needed. The update phase is entered and, 
upon return, the extension is filled with 
GSBs to the blank character by the text 
function of GSP02. A GNOP is stored at the 
end of the element, ELEND is set, and the 
exit phase is entered. 

The exit phase checks to determine if 
the update phase has been entered. If not, 
no further processing occurs. If the upd- 
ate function has been entered, EELMT ends 
the update phase, and DSPYN is used to 
restore the address of GSP07 to ANDE in 
GCOM. 

Errors : 

Code 1 - The size of the element is not 

in the range 0-32767; or 

the character size option is not 

0, 1, or 2; or 

the initialization character 

option is not 0, 1, or 2. 
Code 2 - The correlation value is not in 

the range 1-32767. 
Code 3 - Argument 2, 3, or 4 is and 

GSP03 does not find an ECCB for 

the correlation value specified. 
Code 4 - The ECCB fcund by GSP03 is not 

for a message entity. 
Code 8 - GCHAR or GUPER is not loaded. 
Code 9 - DFMSG is called to redefine an 

origin entity while in update 

mode. 



MSGIN — Message Entity Initialization 

Chart : GB 

Function : To store graphic short branch 
orders to character stroke subroutines in a 
message entity. 

Entry : MSGIN 

Exit : Returns through GSP01 to the next 
seguential instruction in the calling 
program. 



Input : 

Argument 1 

Argument 2 
Argument 3 



address of the correlation 

va lue . 

address of the data array. 

address of the position 

within the element where the 

first GSB order is to be 

stored. 
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Function : To store in GCOM the address cf 
the error handling subroutine that will 
process non-I/O error conditions. 

Entry : ERRIN 

Exit : Returns through GSP01 to the next 
sequential instruction in the calling 

program. 

Input : Address of the error handling 
subroutine. 

Output : See "Operation." 

Operation : ERRIN stores the address of the 
error handling subroutine in the ERADR 
field in GCOM. 

Errors: None. 



IERRS — Identify Errors 

Chart : JA 

Function : To produce one line of print on 
the console typewriter, consisting of a 
subroutine ID, error return code, cumula- 
tive error variable, and a count indicating 
the number of times external subroutines 
have been entered. The maximum count is 
+32767. If subroutines have been entered 
more than 32767 times, the count remains at 
32767. 

Entry : IERRS 

Exit : Returns through the address stored 
in the entry word to the next sequential 
instruction in GSP01. 

Input : Error variables defined by GSPIN 
and fields in GCOM. 

Output : One line of print in the following 
format : 



IERRS passes control to WRTYZ (the ccnscie 
print routine) and the message is printed. 



Errors: 



None. 



"Routine ID=a, Error Code=b, 
c, Count=d." 



Cumulative= 



where 

a=two hexadecimal digits denoting the ID 

of the last GSP subroutine entered via 

a user's call statement. 
b=an error code in the range 0-16 set by 

the GSP. 
c=sixteen digits corresponding to the 

error indicators set in the cumulative 

error variable. 
d=five decimal digits, the count in GCOM. 



INTERNAL SERVICE SUBROUTINES 

The following subroutines provide common 
functions for several of the GSP 
subroutines: 

• GSP01, which saves the status of index 
registers upon entering a subroutine, 
and establishes linkage for exit from 
the subroutine for normal and error 
conditions. 

• GSP03, which builds ECCBs for specified 
elements, finds ECCBs for specified 
elements, transfers generation control 
data between the ICA preface and GCCM, 
or initializes the generation control 
fields in GCOM. 

• GSP10, which provides floating point 
arithmetic functions. 



GSP01 — GSP Inner Subroutine 1 

Chart : KA 

Function : To provide one or more of the 
following services required by most of the 
GSP subroutines called by the mainline 
program: 

• Save function -- Saves registers and 
performs other housekeeping. 

• Error function -- Sets error variables 
in GCOM. 

• Return function -- Restores registers 
and provides return linkage to the 
mainline program. 

Entry : GSP01 

Exit : For the save function, returns to 
the next sequential instruction in the 
calling subroutine. For the errcr and 
return functions, returns to the next 
sequential instruction in the mainline 
program. 

Input : 

1. An indicator word in the calling 
sequence. 

2. For the errcr function: an error 
code in the accumulator. 



Operation : The subroutine ID, cumulative 
error variable, error return variable, and 
count are converted to the EBCDIC character 
equivalents and stored in their respective 
locations in the message to be printed. 



Output : See "Operation." 

Operation : GSP01 examines an indicator 
word in the calling sequence to determine 
what service is requested. The calling 
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sequence and an explanation of the indica- 
tor word are as follows: 

LIBF G3P01 

DC /nl n2 n3 n4 

nl indicates the service to be provided by 
GSF01 as follows: 

= save function 

1 = error function 

2 = return function 

n2 and n3 are reserved. 

nU For save function indicates the number 
of arguments in the mainline calling 
sequence. 



For 



error function indicates source 



(1=GSPIN; 0=others) . 

Save function — Index registers are 
stored in fields REGl, REG2, and REG3 in 
GCOM. Tne address of the next sequential 
instruction in the mainline program is 
computed and stored in field MLRET in GCOM. 
This computation is done by adding to the 
first word of the external subroutine (the 
contents of the IAR are stored there by the 
CALL statement) tne lower three digits (n2, 
n3, n4) of the indicator word which indi- 
cate the number of one-word parameters in 
tne calling sequence. The result is the 
next sequential instruction in the calling 
program. G3P01 tnen stores the arguments 
in the mainline calling sequence in GCOM, 
beginning at field ARGl. The number cf 
arguments stored is determined by n4 of the 
indicator word. The return error variable 
field in GCOM (RETEV) is set to zero, the 
address of GCOM is loaded into register 1, 
tne address cf the active ICA is loaded 
into register 2 (if there is an active 
ICA) , and control is returned to the call- 
ing subroutine. 

Error function -- GSP01 stores the errcr 
code passed in the accumulator in the field 
indicated by RETEV in GCOM and ORs the code 
into the cumulative error variable field 
indicated by CUMEV in GCOM. If a direct 
entry subroutine fcr error processing is 
specified (see ERRIN) control passes to 
that subroutine. Upon return from the 
error processing subroutine, GSP01 then 
returns to the mainline program by means of 
the return function. If a direct entry 
subroutine is not specified, a WAIT 
instruction causes a nexadecirnal FFFF to te 
displayed in the accumulator lights, and 
the contents of the field indicated by 
RETEV and the ID of the last external 
subroutine to be displayed in the extensicn 
lights. Depression of the program start 



key causes another WAIT statement t.c be 
encountered with the contents of the field 
indicated by CUMEV displayed in the accumu- 
lator lights and the count of external GSP 
subroutines entered (GSPEC) displayed in 
the extensicn lights. Depressing the Pro- 
gram Start key causes the return function 
cf GSP01 to be entered. 



Return 



functio n — GSP01 restores index 

register 1, 2, and 3, and returns to the 
mainline program by means of the address in 
the MLRET field in GCOM. When the return 
function is entered from GSPTM, $GCOM is 
set to zero before returning to the main- 
line program. 

Errors : Code 11 — GSPIN has not teen 
called. 



GSP03 — GSP Inner Subroutine 3 

Charts : KB,KC 

Function : To perform one of the following 
functions required by other GSP 
subroutines. 

• Build an ECCB in the active ICA. 

• Search for an ECCB in the active ICA. 

• Transfer control data needed for coor- 
dinate generation between GCOM and the 
active ICA's preface. 

• Initialize fields in GCOM with control 
data needed for ccordinate generation* 

Entry : GSP03 

Exit : 

Normal - returns to the next sequential 

instruction in the calling 

subroutine. 
Error - returns through GSP01 to the 

mainline program. 

Input : 

1. A 1-word indicator in the calling 
sequence. 

2. An address or correlation value in 
the accumulator. 

Output : 

1. For the build function, a 4-word ECCB 
in the active ICA and its address in 
the accumulator. 

2. For the search function, an ECCB 
address in the accumulator. 

3. For the transfer function, data 
transferred between GCOM and the ICA 
preface. 

4. For the initialization function, 
generation control data in GCOM for 
coordinate generation initialized 
with standard values. 
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Operation : GSP03 first saves the index 
registers and the accumulator. An indica- 
tor word is then analyzed to determine what 
service is required. The calling sequence 
and an explanation of the indicator word 
are as follows: 

LIBF GSP03 



DC 



/nl n2 n3 n4 



nl indicates the service to be provided by 
GSP03 as follows: 

= build an ECCB as further defined fcy 

n4 

1 = search for an ECCB as further defined 

by n3 and nU 

2 = transfer control data between GCOM 

and the active ICA as further defined 
by n4 

3 = initialize fields in GCOM with stan- 

dard values for coordinate generation 

n2 is reserved 

n3 further defines the search function by 
indicating the type of argument being 
passed in the accumulator, as follows: 

= correlation value 

1 = address of the ECCB 

2 = an address within an element 

n4(A) further defines the search function 
by indicating the type of search requested, 
as follows: 

= find the address of the ECCB 



1 = find the address of 
ECCB on the chain 



the preceding 



2 = find the address of the ECCB for the 
next outer element 

or (B) further defines the build function 
by indicating the type of element for which 
an ECCB is to be built, as shown below. 
The accumulator contains the correlation 
value to be associated with the ECCB. (A 
value of /FFFF in the accumulator indicates 
that the ECCB is for an area in the ICA 
that was left after an element was 
updated. ) 

= image entity 

1 = controlled entity 

2 = uncontrolled entity 

3 = subroutine entity 

4 = origin entity 

5 = message entity 

6 = linkage entity 



7 - tracking entity 

8 = level-controlled entity 

9 = indexed entity 
A = reserved 

B = subroutine entity requested by 

(Assembler language) 
C through F = reserved 



I ELM" 



or (C) further defines the transfer func- 
tion by indicating the direction of data 
transfer, as follows (the accumulator con- 
tains the ICA address) : 

= transfer generation control data from 

GCOM to the ICA preface 

1 = transfer generation control data from 

the ICA preface to GCOM 

The services described above are tested for 
in the order of presentation below. 
Requests for a service other than initiali- 
zation require that an ICA be active. 



Initialization function 



through LCYI 
Fields MDLST 
zero. 



— Fields IGXI 

are set to 512. 



in GCCM 

and OPLST in GCOM are set to 



Build function — GSP03 performs a 
series of tests to determine whether or not 
the rules for nesting have been followed. 
If so, the ECCB is built using an available 
ECCB on the chain, if there is one, or by 
using the last four contiguous words in the 
ICA generation area. Should no words be 
available in the ICA, GSP04 (Push-Down) is 
called to make area available if there are 
elements present that are indicated as 
deleted. If area is made available by 
GSP04, the ECCB is built as above. IAGAP, 
ECB, FAVCB, and CCB are updated, and the 
address of the new ECCB is put in the 
accumulator. 

Search function — Given a correlation 
value, the address of the ECCB is found by 
searching once from the beginning of the 
chain of ECCBs to its end cr until the 
correlation value is found. Given an 
address within an element, however, 
requires that the chain always be complete- 
ly searched, since the address may be 
within a nest of elements. The address of 
the ECCB for the innermost element whose 
boundaries include the specified address is 
the one returned by GSP03. Requesting the 
address of an ECCB when the argument passed 
in the accumulator is also the address of 
an ECCB (n3=l and n4=0) is an error 
condition. 

If the address of the preceding ECCB on 
the chain was requested, the chain is 
searched again until the ECCB whose forward 
pointer (word 3) points to the ECCB speci- 
fied by the argument in the accumulator. 
If the address of the ECCB for the next 
outer element was requested, the end and 
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start address fields of preceding ECCBs are 
compared with tnose of the EGCB specified 
by the argument in the accumulator. This 
search ends when the ECCB is found or the 
beginning of the chain is reached. 

For each type of search (address of the 
ECCB, of the preceding ECCB, or of the ECCE 
for the next outer element) , a find results 
in the ECCB's address being returned in the 
accumulator; an unsuccessful search results 
in zero being returned in the accumulator. 

Transfer function — Fields LGXI through 
OPLST in GCOM (words 32 through 43) are 
moved to fields GENX through LSTOP in the 
ICA preface (words 10 through 19) or vice 
versa, depending on the value of n4 in the 
indicator word passed to GSP03. 

Comments: ECCBs are built in descending 
core locations from the highest position 
within the ICA. There may be two chains of 
ECCBs in the ICA. The first is a chain of 
"active" ECCBs for elements that are cr 
will fce used in graphic displays. The 
addresses of the first and last ECCBs on 
the active chain are found in the SCB and 
ECB fields respectively in the ICA preface. 
An existing ECCB on the active chain may le 
modified to reflect an increase or decrease 
in the length of the element, or to indi- 
cate that the element is "deleted" (nc 
longer desired for display) . ECCBs for 
deleted elements remain on the active chain 
with a correlation value of hexadecimal 
FFFF. 

The second chain consists of "available" 
ECCBs for elements whose area is overlayed 
by other elements. The address of the 
first available ECCB is found in the FAVCE 
field in the ICA preface. The only ECCBs 
placed on the available chain are for thoce 
elements that were nested within elements 
indicated as deleted, and ECCBs for ele- 
ments that were indicated as deleted and 
have been overlayed by GSP04 (Push-down) cr 
GSP05 (Push-up) . ECCBs on the available 
chain may be redefined and reused for any 
type of element. Chaining is accomplished 
by storing an index value in the FORPT 
field in the preceding ECCB on the chair. 
This index is used in an algorithm to 
determine the absolute address of the ECCB 
in core as follows: 

SCB-ECCB+4 



GSP10 — Floating Point Functions 

Chart : None. 

Function : To provide several floating 
point functions required by the GSP. 
(Equivalent functions available in the 1130 
subroutine library are not usable by the 
GSP.) These functions and the identifying 
codes used in the calling sequence are: 

Function Code 

Extended Floating Point 
Load (ELD) 

Extended Floating Point 1 
Store (ESTO) 

Extended Floating Point 2 
Add (EADD) 

Extended Floating Point 3 
Subtract (ESUB) 

Extended Floating Point 4 
Multiply (EMPY) 

Extended Floating Point 5 
Divide (EDIV) 

Floating Point Load (FLD) 6 

FLOATING Point Store (FSTO) 7 



Entry : GSP10 

Exit : Returns 
instruction in 



to the next sequential 
the calling subroutine via 



Errors: 
Code 4 
Code 9 
Code 5 



There is invalid nesting. 
There is no active ICA. 
There are no words available in 
the ICA. 



the address stored in the entry word + 2. 

Input : An argument address, a function 
code (see above), and in some instances a 
value in the floating accumulator. The 
calling sequence is as follows: 

LIBF GSP10 

DC address of the argument 

DC address of the function code 

Output : A value placed in the argument 
address or in the floating accumulator, 
depending on the function. 

Operation : GSP10 examines the function 
code and executes a branch to perform the 
requested function. The eight functions 
are duplicates of the corresponding float- 
ing point functions described in IBM 1130 
Subroutine Library ., 

Errors: None. 
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Chart AB. ICAIN - ICA Initialization 



****A1 ********* 
¥ 4 

» ICAIN * 

Y * 

*************** 



*****B1 ********** 
*GSPOl /KA* 

*-*-*-*-*-*-*—*—* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



* COMPUTE * 

* ICA ECCB * 

* ADDRESS * 

* * 
***************** 



.* ICA *. 

♦LENGTH GREATER. 

*♦ THAN 28 .* 



*****G1********** 
*GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* TRANSFER * 

* FUNCTION GCOM * 
*' TO ICA * 
***************** 



*****H1 ********** 

* STORE LAST * 

* AND NEXT * 

* AVAILABLE WORD * 

* ADDRESSES IN * 

* PREVIOUS ICA * 
***************** 



* DEFINE/ 
INITIALIZE 

>. OPTION 



*****A2********** 
♦STORE ICA ECCE * 

♦ ADDRESS AND * 
♦LAST AVAILAELE * 
♦WORD IN ICA AND* 

* GCOM * 
***********♦♦♦*♦♦ 



*****B2** ******** 

* * 
♦STORE ICA START* 

* AND ENO ♦ 

* ADDRESSES IN ♦ 

* ICA ECCB * 
***************** 



*****C2 ********** 

* STORE * 
♦FIRST AVAILAELE* 
♦WORD ADDRESS IN* 

* ICA AND GCOM * 

* * 
******♦♦♦♦♦♦♦♦♦♦♦ 



♦****D2*********+ 

* STORE * 
♦CORRVAL AND SET* 

* EELMT IN ICA * 
♦ECCB ZERO REST ♦ 

* OF FORPT * 
***************** 



*****E2**** *♦♦♦♦♦ 

♦ ♦ 

♦ STORE PCINTER ♦ 

♦ TO PREVIOUS ♦ 

♦ ACTIVE ICA ♦ 

♦ ♦ 
*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



IC005 X 

*****F Z********** 

♦ ZERO REST ♦ 

♦ OF ICA ♦ 

♦ INITIALIZE ♦ 

♦ GENERATION ♦ 

♦ CONTROL CATA * 
***♦♦♦♦♦♦♦♦♦♦**** 



.* ICA *. 

END 

ADDRESSES 

. EQUAL . 



****C4 ********* 

* * 

* GSPOl ERROR * 
► * 

*************** 



* NEW 

ICA=ACTIVE 
*. ICA . 



* UPDATE * 

* CHAIN OF ICA * 

♦ POINTERS ♦ 

♦ ♦ 
***************** 



*****D3********** 

* * 

* STORE * 
♦CORRVAL IN ICA ♦ 

♦ ECCB ♦ 

♦ ♦ 
♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



*****E3********** 

* * 

* STORE ICA * 
*ECCB ADDRESS IN* 

* GCOM * 

* * 
***************** 



*****F3********** 
♦GSP03 /KB* 

*-*-*-*-*-*-*-*-♦ 

♦ TRANSFER ♦ 
♦FUNCTION ICA TO* 

* GCOM * 
***************** 



* STORE ICA * 
♦LIMITS IN NAGAP* 

* AND LAGAP IN * 

* GCOM * 

***************** 



*****J2********** 
♦GSP03 /KB* 

*-*-*-*-* -*-*-*-* 

* TRANSFER * 
♦FUNCTION: ICA TO* 

♦ GCOM ♦ 
♦♦*********♦♦♦♦♦♦ 



UPDATE 

CHAIN OF ICA 

POINTERS 



***************** 



**** . 

IC008 X 

*****K4********** 

* *DSPYN /DD* 

* *-*-*-*-*-*-*-*-* 
*.. X*STORE ADDRESSES*. 

* *OF LIGHT PEN + * 
*ORD CONT. SUBS 



****K5********* 

* * 
• X* GSPOl RETURN * 

* » 
*************** 



***************** 
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Chart AC. GCAIN - GCA Initialization 



****A I********* 
» 4 

* GCAIN * 
» * 

*************** 



*****B1********** 
*6SP01 /KA* 
*_*_*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1 ********** 

* * 

* COMPUTE * 

* ADDRESS OF * 

* FIRST WORD OF * 

* GCA * 
***************** 



ZERO GCA 



***************** 



*****E1 ********** 
♦FLOAT * 

*-*-*_*-*-*-*_*-* 

* CONVERT * 
* INTEGER TO REAL* 

* 1 * 
***************** 



GC04O X 

*****F1 ********** 
*GSP10 * 

*-*-*-*-*-*-*-*-* 
♦STORE REAL 1 IN* 

* WORDS 5-7 AND * 

* 11-13 OF GCA * 
***************** 



«****G1 ********** 

* * 

* STORE INTEGER * 

* 1 IN WORDS * 

* 29-32 OF GCA * 

* * 
***************** 



*****H1 ********** 

* * 

* STORE * 

* 1023 IN WORDS * 

* 3-4 OF GCA * 

* * 
***************** 



*****J 1********** 

* * 

* SET INPUT * 

* AND OUTPUT * 

* MODES * 

* * 
***************** 



****K 1********* 

* * 

* GSPOl RETURN * 

* * 
*************** 
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Chart BB. EELMT - End Element 



****A1 ********* 
t * 

* EELMT * 

* * 
*************** 



EEO30 

*****A£********** 

* INDICATE ECCB * 

* AS ENOED. ♦ 
..X*UPDATE ELEMENT * 
. * END INDICATOR * 

* IN ECCB * 
. ***************** 

**** 



*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTICN * 

* * 
***************** 



♦ .EXTERNAL MODE.*. 



.* ENDED * 

.ECCB= SPECIF. 

*. ECCB .4 



* IN *. YES .* SPECIFIED *. 

UPDATE MODE .*........ X*. ECCB CURRENT . 

*. .* *. UPDATE .* 

*. .* *.ECCB .* 



*.CORRVAL VALID.*. 



*— * -* -* -*-*—* — *— * 

* SEARCH * 

* FUNCTICN * 
♦SPECIFIED ECCB * 
***************** 



*—*-*-*-*-*—*-*-* 

* SEARCH * 

* FUNCTION NEXT * 

* OUTER ECCB * 
***************** 



ECCB FCUND 



.* ANY *. 

LEVEL- *. 
CONTROLS . 
. ENDED .* 



*****C4********** 



***************** 



EE045 X 

*****D3********** 
♦GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* SEARCH * 

* FUNCTION NEXT * 

* OUTER ECCB * 
***************** 



.* ECCB *. 


NO X 


*. FOUNC AND 




*. ENDED .* 




*. .* 




*. .* 




* YES 




**** . 




* * . 




* Gl *.X. 




* * . 




**** X 




EE005 .*. 




Gl *. 




.* *. 




.* INDEXED * 


YES 


*.OR CONTRCLLED. 




*. ENTITY •* 





****F£********* 

* * 

* GSP01 ERROR * 

* * 
*************** 



*****G2** ******** 
*GSP02 /CH* 
*-*-*- *-*-*^*-*-* 
<* STORE *. 

* FUNCTION * 

* OVERHEAD SPM * 
***************** 



*****H2** ******** 
*GSP03 /KE* 
*-*-*-*—*-*-*-*-* 
X* TRANSFER *. 
♦FUNCTION ICA TO* 
* GCOM • 
***************** 



*****F3********** 

* SET * 

* CURRENT ECCB * 
♦POINTER IN GCOM* 

* TO FOUND ECCB * 

* * 
***************** 



**** 

*****G3*******++* 

* STORE * 
♦ADDRESS OF 3RD * 

,X*MORD OF ECCB IN*.... 

* GB OVERHEAD * . 

* ORDER ♦ . 
*#*****•*******•* X 

***• 



*****H3**** ****** 
*GSP02 /CH* 
*«*-*-*—*—*-*-*-* 
K* STORE *. 

* FUNCTION * 

* OVERHEAD GBI * 
***************** 



FOUND 
ECCB= ICA 
. ECCB 



*****F4********** 

* * 

* SET CURRENT * 
*ECCB POINTER IN* 

* GCOM TO ZERO * 

* * 
***************** 



• G4 *.X 



****G4 ********* 

* • 

* GSPOl RETURN * 



*************** 



,* UNUSED *. 
. AREA IN . 
*. ELEMENT .* 



*****C5********** 
*GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* BUILD * 
♦FUNCTION DELETED 

* ECCB FOR AREA * 
***************** 



EE072 X 

*****D5********** 
*GSP02 /CH* 
*-*-*-*-*-*-*-*-* 
♦STORE FUNCTION * 

* GNOP OR GBI * 

• ORDERS. * 
***************** 



*. TRACKING MODE.*. 



*****F5*****»**^* 
*GSP04 /BM* 
*-*-*-*-*-*-*-*-* 

* * 

* PUSH DOWN * 

* * 
***************** 



EE075 X 

*****G5*********^ 
*GSP03 /KB* 
*-*-*-#-*-*-*-*-* 

* TRANSFER * 
♦FUNCTION ICA TO^ 

* GCOM • 
***************** 



*****H4********** 

♦ STORE * 

♦ ADDRESS OF NEXT + 

.X+ AVAIL WORD IN ♦.... 

♦ ICA IN GB ♦ 

♦ OVERHEAD ♦ . 
♦♦♦*•***♦♦♦♦♦♦*•* X 

**** 



Jl *. *****J2********** 

.* *. * STORE * 

.* ♦. YES * ADDRESS OF * 

♦ .IMAGE ENTITY .* X* PRECEDING *. 

*. .* *OVERHEAD ORDER * 

♦. .♦ ♦ IN GE ♦ 

*. .* ***************** 



*****j 3**** *♦♦*** 
♦GSP02 /CH* 
*■- *-*-*-*-*-*-*-♦ 
.X*STORE FUNCTION *. 
♦OVERHEAD SGMV. * 
♦ MBA. GBN, GBN ♦ 
***************** 



*-*-*-* 
<* *... 

* INITIALIZE * 

* FUNCTION * 

***************** 



*****H5«*+****+* 

* * 

* UPDATE ECCB * 

* AND ICA * 

* POINTERS IN * 

* GCOM * 
***************** 



***** J5********** 

* DISCONNECT * 

* PROCESSING * 

* MESSAGE FROM ♦ 
*SYSTEM DISPLAY * 

* * 
*****•**♦*•***•** 



* LEVEL 

CONTRCLLED 
*. ENTITY 



*—*—*—*—*—*—*—*—* 
K* STOFE * 
♦OVERHEAD ERANCH* 
♦ ORDER ♦ 
**********•♦♦♦*♦♦ 



**** 

* * 

* A2 * 

* * 
**** 
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Cheirt BC. DELWT - Delete Element 



**** 
• * 

* A2 * 

* * 
***♦ 



**** A 1 ********* 
¥ * 

» DELMT * 
» * 

*************** 



**** 

* * 
. X* D3 4 

* 4 
• *•* 



k****Bl ********** 
♦GSP01 /KA* 

►-♦-*-*-*-*-*-*-* 
t * 

* SAVE FUNCTION * 

* * 
***************** 



* ELEMENT 

LENGTH = 2 
*. WORDS . 



* STORE GNOP * 
.X*!N LAST WORD IN* 

* ELEMENT * 

* * 
***************** 



.♦GENERATION 
MODE = 
♦.EXTERNAL . 



CORRELATION 

*. VALUE .* 

♦.VALID.* 



* ELEMENT 

LENGTH = 1 
*. WORD 



= 060 X 

*****DZ********** 
♦STORE GBI ORDER* 
*IN FIRST WORD. * 

* SET NOP BIT ♦. 
♦OFF. STORE GNOP^ 

♦ IN LAST WD. * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ STORE GNOP ♦ 
...X* IN FIRST WORD ♦ 

♦ IN ELEMENT ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦**♦*♦♦♦♦♦ 

*•*• . 

* * 

* D3 *.X. 

* ♦ 

♦ ♦♦♦ . 

OE070 X 

♦♦♦♦*D3********** 



♦♦♦*♦♦♦♦♦♦♦♦♦♦♦** 



DE200 X 

*****DS********** 
♦GSP03 /Kfi* 

♦-♦-♦-♦-♦-♦-♦-♦-♦ 

♦ SEARCH * 
♦FUNCTION PRIOR ♦ 

♦ ECCB ♦ 
♦♦♦♦♦♦♦♦♦♦♦****♦♦ 



DE005 X 

«****E1 *♦♦♦♦****♦ 
♦GSP03 /KB* 

*-*-*-*-*-♦-*-♦-♦ 

* ♦ 
♦SEARCH FUNCTION* 

* * 
♦♦♦♦♦♦♦♦♦******** 



****E4********* 

* * 
.X* GSPOt RETURN * 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



ECCB FOUND 



ECCB FOUND 



♦ ♦♦♦ 

* * 
..X* H2 ♦ 

♦ ♦ 
**♦* 



♦****F3 ********** 

* * 

* GET * 

* NEXT ECCB ON * 

* CHAIN * 

* * 
***************** 



♦UPDATE FORWARD ♦ 

♦ POINTER OF * 

♦ PRIOR ECCB ♦ 

♦ ♦ 
***************** 



.♦. 
Gl ♦. 
.♦ ♦. ***♦ 

♦. YES ♦ * 
INCLUDED .*.... X* D5 ♦ 
. ELEMENT .♦ ♦ ♦ 
♦ . .♦ ♦♦♦♦ 

♦ . .♦ 
♦ NO 



♦ *♦♦ 

♦ * 

* H2 * 

• * 
**** 



*****G5********** 



*••********♦♦♦♦♦♦ 



.♦ ♦. ****H2********* 

.* ♦.NO * 4 

♦.ELEMENT ENDED.* ....... .X* GSP01 ERROR * 

♦. .♦ ♦ 4 

♦. .♦ ♦♦************♦ 



*****J2********** 

* * 

* DECREMENT * 
.X* ELEMENT START * 

♦ADDRESS BY TWO * 

* * 
***************** 



•DE095 X DE110 
. *****J3********** 

* SET * 
. * CORRVAL TO 0. * 
. ...* PUT ECCB ON * 

♦AVAILABLE CHAIN* 

* ♦ 
***************** 



♦ SET * 

♦ CORRELATION ♦ 
♦VALUE TO /FFFF ♦ 

♦ * 
♦♦♦♦*******♦♦♦♦♦♦ 
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• Chart BD. UELMT - Update Element 



****A1 ********* 

* * 
► UELMT * 

* * 
*************** 



**+**Bl ********** 
♦GSPOI /KA* 
*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



». ACTIVE ICA 



.* VALID *. 
ELEMENT 
TYPE AND 
. CORVAL 



*****E1 ********** 
*GSP03 /KB* 
*-*—*-*-*-*—*—*—* 

* < 
♦SEARCH FUNCTION* 

* * 
***************** 



UE17S X 

*****A2** ******** 
*DELMT /EC* 
*-*-*-*-*-*-*-*-* 



***************** 



*-*-*-*-*-*-*-*-* 

* TRANSFER * 

* FUNCTION GCCH * 

* TO ICA * 
***************** 



*****C2********** 
*GSP03 /KB* 
*-*-*-*-*-*-*-*-* 

* INITIALIZE * 

* FUNCTICN * 
***************** 



UE200 X 

*****D2********** 
♦DECREMENT OLCNT* 

* BY 1. SET * 

* ELEMENT * 

* POINTERS IN * 

* GCOM * 
***************** 



K3 * 

* 
**** 



***** 
*BD * 
* A3* 



UE700 X 

*****A3********** 

* SET * 

* COUNTER TO * 
..X* ELEMENT SIZE. * 
. *LOAO GNOP ORDER* 
• * * 
. ***************** 



*****B3********** 



***************** 



*****C3* ********* 

* ADJUST * 

* STORAGE * 

* POINTER. * 

* DECREMENT * 

* COUNTER BY I * 
****i|t****** ****** 



*. COUNTER=0 



►**SE3**** ****** 



LAST ECC8 
ON ACTIVE 
. CHAIN . 



*****B4 ********** 

* * 

* GET * 

* NEXT ECCB ON * 

* CHAIN * 

* * 
***************** 



* NEW ECCB 

FOR NESTED 
*. ELEMENT . 



*****D4 ********** 

* STORE * 
♦ADDRESS OF NEW * 

* ECCB IN NCBAU *. 
*IN ICA PREFACE * 

* * 
***************** 



* ELEMENT TYPE * 

* * 
***************** 



**** 

* * 
.X* A3 * 

* * 
**** 



***** AS** ******** 

* * 

* ZERO * 
<* NCBAU IN ICA * 

* PREFACE * 

* * 
***************** 



****D5*** ****** 
¥ * 

* GSPOI RETURN * 
» 4 

*************** 



*. ECCB FOUND 



♦.ELEMENT ENDED.*. 



**** 

* * 

* K3 * 

* * 
**** 



*. IMAGE ENTITY 



.* DISPLAY 


* 


. NO 






.* 




*.IN ACTIVE ICA 


*.. 






*. 


INDEXED 


*. 


.* 










* 


ENTITY 


*. .* 














*. . 


* • .* 








X 






*• •* 


* YES 






***i 






* NO 








♦ 
















♦ 


A? 














* 




* 




X 








**** 






* + +** 
















♦BE * 


X 














* Al* 


*****Kl ********** 










* * 


♦DSPYN 


/DD* 










* 


















* DISPLAY 




* 












* PROCESSING 




* 












* MESSAGE 




* 












************* 


**** 













**************** 



* LOAD * 
■X*GRAPHIC BRANCH *. 

* TO EL END +1 ♦ 

* ♦ 
♦♦*************♦♦ 



*-*-*-*-*-*-*-*-* 
X* *. 

♦STORE FUNCTION * 
♦ ♦ 

***************** 



*****F 5* *****♦♦♦♦ 

* * 

* SET INDIC IN * 
<♦ ECCB TO NEW *. 

* ELEMENT TYPE * 

* * 
***************** 



* SET INDIC IN * 
X* ECCB TO NEW *. 

* ELEMENT TYPE * 

* * 
***************** 



.* X*.GSP11 LOADED 

*. .* 

*. .* 

*. .* 
* NO 
**** 

* * 

* K3 *. 

* * 
**** 

****K3 ********* 

* * 

* GSPOI ERROR * 

* * 
*************** 



*****G4 **+♦♦***** +****G5********** 

*GSP02 /CH* * * 

♦-*-*-*-*-*-*-*-* ♦ SET INDIC IN * 

• ••X* ♦ X* ECCB TO NEW ♦ 

♦STORE FUNCTION * * ELEMENT TYPE * 

* ' * * * 
***************** ***************** 

UEAOO X UE450 

*****H4********** *****HS ********** 

* * *GSP02 /CH* 

* * *-*_*-*-*-*_*_*_* 
...X+LOAD SYRT ORDER*. ....... X* * 

* * X *STORE FUNCTION * 

* * . * * 
*******♦♦♦♦♦***** . ***************** 

**** . 

* * . **** 

* H5 * . * * 

* * ..X* A3 * 
**** * * 

**** 

*****J4********** *****J5********** 

* LOAD /FFFF * ♦GSP02 /CH* 

* AS INDEXED * *-*-*-*-*-*-*-*_* 
...X* ENTITY * X* * 

* INDICATOR FOR * *STORE FUNCTION * 

* GSP02 * * * 
****+++*+♦♦****♦♦ ***************** 



**************** 



**** 

* * 

* H5 * 
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Chart BE. UELMT - Update Element (continued) 



***** 

*BE * 
* Al* 



UEAOO X 

*****A1********** 
*GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* SEARCH * 

* FUNCTION NEXT * 

* OUTER ELEMENT * 
***************** 



ECCB FOUND 



•***B2********* 

* * 

* GSPOl ERROR * 
t * 

•*•*••********* 



ECCB *. h 

FOR IMAGE .*« 
. ENTITY .* 



.* ECCB *. 

.♦FOR UEVEL- *. 

•X*CONTROLLED ENTI* 



UEAIO X 

***** Dl ********** 

* SET INDIC * 

* OF INNER * 

* ELEMENT FOR *X 
*LEVEL-CONTROLL * 

* ENTITY * 
***************** 



*****D2********** 

* SET GRAPHIC * 

* BRANCH DUMMY * 
.* TO SAME LEVEL * 

* VERIFICATION * 

* SUBROUTINE * 
***************** 



*****E1 ********** 

* * 

* LOAO GBN TO * 

* ELEND+1 OF * 

* INNER ELEMENT * 

* * 
***************** 



*-*—*—*-*-*—*-*-* 
* * 

♦STORE FUNCTION * 



***************** 



«****G1 ********** 

* LOAD GSB TO * 

* LEFT BRACKET * 

* VERIFICATION * 

* SUBROUTINE * 

* * 
***************** 



UEA80 X 

*****H1 ********** 
*GSP02 /CH* 
*-*-*-*-*-*-*-*-* 

* * 
♦STORE FUNCTION * 

* * 
***************** 



•>****J 1********** 
I * 

I * 

« LOAD SRVT * 
I * 

( * 

(:******•**•****** 



*-*-*-*-*-*-*-*-* 

* * 

•STORE FUNCTION * 

* * 
***************** 



***** 
*BD * 
* A3* 
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Chart BF. XELMT - Extend Element 



****AI ********* 
* 

* XELMT * 

* * 
*************** 



XELMT X 

*****B 1 ********** 
•GSPOl /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



ACTIVE ICA 



► LPC * 

AND CORRVAL 
». VALID .* 



-*-*-*-*-*-* 

* SEARCH * 

* FUNCTION * 
♦SPECIFIED ECCB * 
***************** 



ECCB FOUND 



X..*. ELEMENT ENDED.* 



*****A 2 ********** 

* * 

* SET * 
♦GENERATION MCCE* 

* TO UPDATE * 

* ♦ 
***************** 



*****B2********** 
*GSP03 /Ke* 

* -*-t*-*-*-*-*- *- * 

* TRANSFER * 
♦AND INITIALIZE * 

* FUNCTION ♦ 
***************** 



XE200 X 

*****C2********** 

♦ SAVE ♦ 

♦ ELEMENT AND ♦ 

♦ CONTROL ELCCK ♦ 
♦POINTERS IN ICA* 

♦ PREFACE ♦ 
***************** 



* UPDATE ♦ 

* ELEMENT * 

* POINTERS IN ♦ 

* ECCB ♦ 
***************** 



* STORE ADDRESS * 
*OF NEXT CUTS IDE* 

* ECCB IN NCEAU * 

* ♦ 
***************** 



*****G2**4 ******* 

♦ ♦ 

♦ TURN ON ♦ 

♦ PROCESSING ♦ 

♦ HESS ACE ♦ 

♦ ♦ 
***************** 



XE77S X 

*****H2* ********* 
♦GSP05 /EN* 
*-*-*—*-*-*-*-*—* 

* ♦ 
♦PUSH UP CRDERS ♦ 

♦ ♦ 
***************** 



****J2* ******** 

* ♦ 

* GSFC1 RETURN * 

* ♦ 
*************** 



♦♦♦♦Kl ********* 

* ♦ 

* GSPOt ERROR * 

* * 
*************** 
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Chart BG. IELMT - Include Element 



****A1********* 
K * 

* IELMT * 

I * 

****•••*••*•*** 



*****B1 ********** 
*GSP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*.CORRVAI_ VALID.*. 



****D2********* 
4 
GSP01 ERROR * 
* * 

*************** 



*«***E1 ********** 
*GSP03 /KB* 

*-.*-*-*-*-*-*_*_* 

* * 

* tlUILD FUNCTION * 

* * 
*«<*************** 



*****F1 ********** 

* SET * 

* ELEMENT START * 
*AND END ADDRESS* 

* INDICATORS IN * 

* ECC8 * 
***************** 



*****G1 ********** 

* SET * 

* ON ENDED * 

* ELEMENT * 

* INDICATOR BIT * 

* IN ECCB * 
***************** 



****H1 ********* 

* * 

* SSPOl RETURN 4 

* * 
*************** 
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Chart BM. GSP04 - Push Down 



****A1********* 
» * 

GSP04 + 
* * 

*************** 



***************** 



GA010 

*****B2********** 

♦ SET POINTER TO * 

♦ NEXT AVAILABLE * 
. ..X* WORD. LOAD * 

* ENDCB IN GCOM * 

* WITH EAVA+1 * 
***************** 



LAST ECCB .* 



G4110 

*****A4********** 

* INITIALIZE * 

* ••FROM 1 * AND * 
. ..X* • , TO• , MOVE * 

* POINTERS. * 
♦DETERMINE COUNT* 
***************** 



.* IMAGE ♦. 



*****B5* ********* 

* * 

* DECREMENT * 
O" POINTER * 

•BY 2. INCREMENT* 

* COUNT BY 2 * 
***************** 



.X* 



*****C1 ********** 
♦SET POINTER TO * 
♦NEXT AVAILABLE * 
♦GENERATION AREA* 

* SET ENDCB TO * 

♦ LAGAP+1 ♦ 
***************** 



****C3********* 
¥ * 

» GSPOl ERROR * 
* * 

*************** 



.♦GENERATION ♦. YES * SET NEXT * 

. MODE=UPDATE .*. X*AVAILABLE WORD * 



TO POINTER 

* * 

***************** 



G4130 XLOOP 

♦****D4********** 

* MOVE * 

* ORDERS USING * 

* ••FROM"" AND * 

* "TO 1 • LIMITS * 

* * 
***************** 



*****cs********** 

* * 

* UPDATE * 
X* POINTERS IN ♦ 

* GCOM * 

* ♦ 
***************** 



*****E i ********** 
*DSPYN /DD* 

*_*-*-*-*-*-*-*-* 

♦ DISPLAY ♦ 

♦ PROCESSING ♦ 

♦ MESSAGE ♦ 
*****♦♦♦♦♦♦***♦*♦ 



♦ 


RESTORE 


* 


♦ 


IMECB. 


SET 


* 


* 


SWITCH 


TO 1 


* 


* 






* 


***************** 


♦*** . 






* 


♦ . 






* 


31 *.X. 






* 


♦ . 






***♦ X 






G404C 


.* 








Gl 


*. 






.* 


*. 






* 


* 


. NO 


♦ . 


DLCNT 


= 


.*•• 



*****E2********** 

* SET NEXT ♦ 

* AVAILABLE ♦ 
♦GENERATION AREA* 

* POINTER TO * 

* POINTER * 
***************** 

**** 

* * 

* F2 *. 

* * 
**** 

****F2********* 

* * 

* RETURN * 

* * 
*************** 



* GET NEXT ECCB * 



***************** 



.* DELETE 
ELEMENT 
*. NESTED 



* UPDATE EL END * 

* AND ELSTA IN * 
♦FOLLOWING ECCBS* 

* * 
***************** 



*****F5********** 

* * 

* UPDATE * 
,X*ELEND OF OUTER * 

* ECCB * 

* * 
***************** 



SWITCH = 1 



*****J l********** 

* SET * 
♦SWITCH TO ZERO.* 
*GB NOP LINK TO * 
♦SYSTEM DISPLAY ♦ 

♦ ♦ 
***************** 



**** 

* * 
. X* D2 * 

* * 
**** 



♦ TAKE DELETE * 
♦ECCB OFF ACTIVEX 

♦ ECCB CHAIN ♦ 

♦ ♦ 
***************** 



G4188 X 

*****J 4********** 

♦ PUT ECCB * 

♦ ON AVAILABLE ♦ 
♦CHAIN DECREMENTS 

♦ DLCNT BY ONE * 

♦ * 
***************** 
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• Chart BN. GSP05 - Push Up 



♦ ♦**AH******** 

» * 

► GSP05 * 

* =1 

*************** 



Bl 



.* 



B2 



.* ANY *. YES .* UPDATE *. 

*. DELETED .* X*.ECCB LAST ON .< 

♦.ELEMENTS .* *. CHAIN .* 

*• •* *. .* 

*• •* *. .* 

* NO * YES 
**** . 

* * . 

* CI *.x. 

* * .X 

**** X 

G5090 .*. 

CI *. 

.* ANY *. ****C2********* 

.* AREA *. NO * * 

*. AVAILABLE IN .* X* GSF01 ERROR * 

*. ICA .* * 4 

*• •* *************** 

*. .* 

* YES 



.* IS NEXT *. N 
>X*.ECCB A DELETE.*. 
*. ECCB .* 



.* IS NEXT * 
*.ECCB LAST ON 
*. CHAIN .* 



G5020 

*****B4 ********** 

* SET NEXT * 

* CONTROL BLOCK * 
...X+POINTER TO NEXT*. 

*NON-DELETE ECCB* 

* * 
***************** 



* SET NEXT * 

. X* CONTROL BLOCK *. 
*POINTER TO ZERO* 

* * 
***************** 



*****C5********** 

♦GSP04 /BM* 

*-*-*-*-*-*-*-*-* 

<* * 

* PUSH DOWN * 

* * 
***************** 



* SET * 

* COUNTER FOR * 

* MOVES * 

* * 
************* **** 



*****D3*** ******* 

* * 
*CCNVERT FORWARD* 

.♦POINTER TO NEXT* 

* ECCB ADDRESS * 

* * 
***************** 



.* AREA *. 
► AVAILABLE *. 
SUFFICIENT . < 



♦SET UPPER LIKIT* 
.X*TO END OF AREA * 

* AVAILAELE * 

* * 
***************** 



*****F1 ********** 

* SET UPPER * 
♦LIMIT TO START * 

* OF AREA * 

* AVAILAELE + * 

* COUNTER-1 * 
***************** 



•X. ....... 

GS110 X 

*****G1 ********** 

* SET * 
♦LOWER LIMIT TO * 

* START OF ♦ 

* AVAILAELE * 

* AREA-1 * 
***************** 



♦MOVE WCRD FROM * 
♦LOWER LIMIT TO * 

* UPPER LIMIT * 

* * 
***************** 



*****JI ********** 



***************** 



► ALL *. YES * UPDATE AREA * 

WORDS MOVED .♦... X*POINTERS IN ICA*. 

*• •* * AND GCCM * 

*. .* * * 

*. •* ***************** 



G5145 

*****K 3**** ****** 

* UPDATE * 

* GRAPHIC * 
...X* ERANCHES IN *. 

♦MOVED ELEMENTS * 

* * 
***************** 



****K4 ********* 
► * 

* RETURN * 

* * 
*************** 
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• Chart DA. EXEC - Execute Display 



****A1 ********* 

* * 

* EXEC * 

* * 
*************** 



*****B1*** ******* 
*GEP01 /KA* 

*-*-*-*-*-*-*-*-* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1 ********** 
*DSPYN /DO* 

*—*-*-*-*-*-*-*—* 

* FUNCTION * 

* 1948 RESET * 

* DISPLAY * 
***************** 



*****D1 ********** 

* SET OFF * 

* EXEC BIT IN * 

* DSPIN. SET * 

* SWITCH B TO * 

* ZERO * 
***************** 



ARG2 

AND ARG3 

VALID 



t> ECCB FOR * 

ENDED IMAGE 
t. ENTITY .* 



* B2 *.X 



**** 
EX040 X 

*****B2********** 



***************** 



**** 

* * 

* B4 «... 

* * 
**** X 

.* 
B4 



.* ARG3 * 
* SPEC. 

RESTART 
*. COPT. 2) 



*****C3********** 

* SET * 

* BRANCH IN * 
.X*SYSTEM DISPLAY * 

*TO IMAGE ENTITY* 

* * 
***************** 



*****C4 ********** 

* * 

* NO-OP BRANCH * 

* TO PROCESSING *. 

* MESSAGE * 

* * 
***************** 



RESTART 

OPTION 

.SPECIFIED 



**** 

EX1 20 

*****F2********** 

* SET OVERHEAD * 
*. YES * ORDERS FOR * 

.*..... ...X* ORDER PROGRAM *.. 

,* * SET BRANCH TO * 

* CRDER PROGRAM * 
***************** 



LCPOS MODE 



TRACK MODE 



*****E4 ********** 

* * 

* ACTIVATE * 
X* BRANCH TO * 

♦TRACKING SYMBOL* 

* * 
***************** 



*****F3*** ******* 

* * 

* NO-OP BRANCH * 

* TO TRACKING * 

* SYMBOL * 

* * 
***************** 



*****B5********** 

* * 
♦ACTIVATE BRANCH* 

•X* TO PROCESSING * 

* MESSAGE * 

* * 
***************** 



EX059 X 

*****C5********** 
♦DSPYN /DD* 
*-*-*-*-*-*-*-*-* 



***************** 



****D5********* 

* * 

* GSPOI RETURN * 

* * 
*************** 



EX160 X CCMMON 

*****H1 ********** 

* NC-CP * 

* SWITCH TRAP. * 

* STORE ADDRESS * 
*OF SD1 IN ASD. * 

* * 
***************** 



► IS ARG1 

FOR ACTIVE 
>. ICA 



EX150 CCMMCN 

*****G2* ********* 

* ENABLE * 

* SWITCH TRAP. * 
...X* STORE ADDRESS * 

* OF STMR1 IN * 

* ASD. * 
***************** 



♦SEARCH FOR ICA * 
.X*IN ChAIN SEARCH* 
*FCR ECCB IN ICA* 
* * 

***************** 



LOCPN MODE 



LOCND MODE 



*****H4 ********** 

♦ * 
♦ACTIVATE BRANCH* 

K* TO SCANNING ♦ 

♦ PATTERN ♦ 

♦ ♦ 
♦*******♦♦♦****** 



*** **J3 *♦♦♦****** 

* * 

* MO-OP BRANCH * 

* TO SCANNING *. 

* PATTERN * 

* * 
***************** 



*—*-*—*-*-*- 



♦SEARCH FUNCTION* 
* ♦ 

***************** 



*........X*. ECCB FOUND 



* NO-OP ALL * 
<* ERANCHES IN *. 

♦SYSTEM DISPLAY * 

* ♦ 
***************** 



****K4********* 

* * 

* GSPOI ERROR * 
» * 

*♦*****♦♦***♦** 
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Chart DB. TMDSP - Terminate Display 



****A1 ********* 

* * 

* TMDSP * 

* * 
*************** 



*****B1 ********** 

* GSP01 /KA* 
*-*—*—*—*-*—*—*—* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



****C2********* 
* 4 

► GSPOl ERROR t 
t * 

*************** 



*****D1 ********** 

* * 

* STORE GB NOP *Y 

* ORDERS IN * 
♦SYSTEM DISPLAY * 

* * 
***************** 



+****E1 ********** 
*DSPYN /OD* 

*—*-*—*—*—*—*—*-* 

* * 

* FUNCTION 1950 * 

* * 
***************** 



*****F1 ********** 

* SET * 

* TERMINATED * 

* DISPLAY * 
* INDICATOR TO ON* 

* * 
***************** 



*****G1 ********** 

* * 

* SET ICA * 
*ECCB POINTER TO* 

* ZERO * 

* * 
***************** 



****m ********* 

* * 

* GSPOl RETURN * 

* 4 
*************** 
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Chart DC. SPFKL - Set Programmed Function Keyboard Lights 



****A1********* 

► * 

► SPFKL * 
¥ * 

*************** 



*****B1********** 
*GSP01 /KA* 

*_*_*_*_*_*_*_*_* 

* * 

* SAVE FUNCTION * 

* * 
***************** 



*****C1 ********** 

* * 

* HOUSEKEEPING * 

* HAKE CODE * 

* SERIALLY * 

* REUSABLE * 
***************** 



P0010 


X 
.*• 

Dl *. 




.* ARE 


* 


.* 


ALL 




*. 


ARGUMENTS 


* 


. VALID 





*****D2********** 

* * 

.NO * * 

.* ...X*SET ERROR CODE *. 

X * * 

. * * 

. ***************** 
**** 

• * 

* D2 * 



*****03********** 
*DSPYN /DD* 

*._*_*_*_*_*_*_*-* 
X* *. 

•RESTART DISPLAY* 
* * 

***************** 



****04********* 

» n 

► GSP01 ERROR « 
* * 

*************** 



El *. *****E2********** 

.* *. * * 

.* ARE ALL *. YES * SET * 

♦ .LIGHTS TO BE .* .X* ALL INDICATOR *. 

*. TURNED ON.* * BITS ON * 

*. .* * * 

*. .* ***************** 



.* 



Fl 



*. 



*****F2********** 



ARE ALL *. YES * SET ALL * 
*. LIGHTS TO BE .*....... .X*INDICATOR BITS *. 

*. TURNED .* * OFF * 

*. OFF .* * * 

*. .* ***************** 

* NO 



.* ARE 32 *. YES 
*. ELEMENTS IN .*.... 

*. ARRAY .* 





.* DOES *. 


* 


EACH *. 




ELEMENT 


* 


.CONTAIN 0.* 




*.OR 1 .* 




*. .* 




* NO 




. **** 




* 




..X* D2 




* 




*•** 



.* SELECTIVE *. 
. ENABLING 
♦ .REQUESTED.* 



*****E4********** 

* MOVE * 

* LIGHT * 
<* INDICATORS TO * 

*GCOM LOCATIONS * 

* 23 AND 24 * 
***************** 



* ACCESS * 
♦EACH ELEMENT OF* 

* THE ARRAY * 

* * 
***************** 



THE 
>IT V 



•****G3 ********** 

* SET MATCHING * 

* INDICATOR BIT * 
.X*F0R EVERY LIGHT* 

* TO BE LIGHTED * 

* * 
**♦♦♦*♦♦♦♦♦♦***** 



*****F4********** 
♦DSPYN * 

*-*-*-*-*-*-*-*-* 

* * 
♦SET PFK LIGHTS ♦ 

♦ * 
***************** 



****G4********* 

* * 

* GSP01 RETURN t 

* * 
*************** 
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• Chart DD. DSPYN - 2250 I/O Subroutine 



****A 1********* 

► 4 

>* DSPYN * 

=x 4 

*************** 

**** 

* 4 

* B 1 4 

* 4 

**** 

DFENT X 

t****ei ********** 



*SAVE REGISTERS * 
* * 

>* * 

***************** 



.* *. YES * GET * 

.FUNCTION 1970.*.. X* DEVICE STATUS *. 

*. .* * WORD * 



***************** 



.* *. YES .* USER * 

.FUNCTION I960.*...... ..X*. AREA ADDRESS 

*. .* *. = .4 



**** 

* * 

* C4 *... 

* * • 
**** . 

.*. RTY70 X 

C3 *. *****C4********** 

* *. * * 

*. YES * GET * 

DSW = .* ...X* DEVICE STATUS *X. 

.* * WORD * 

► . .* * * 

*. .* ***************** 



♦.FUNCTION 1958.*.. 



**** 




* 


* * . 




* J 1 


* E2 *.X. 




* 


* * . 




**** 


**** . 






AMG60 X 






*****E2********** 




* 


* 




* MOVE 


* 




* READ STATUS 


* 




* DATA 


* 





***************** 



***************** 



****E3********* 

* * 
f RETURN 4 

* * 
*************** 



*. FUNCTION 1950.*. 



.* FIRST *. YES *SET FIRST WORD * 

.WORD NEGATIVE.* X* IN ISS AREA * 

*. .* X * NEGATIVE * 

* * 

***************** 



*. FUNCTION 1948.* 



♦ .FUNCTION 1940.4 



***** 




* NO 


*OE * 






* Al* 






* * 






* 




X 


CHK60 


.*. 






G2 *. 






.* *. 


YES 


• 


♦FIRST WCRCS*. 




*. 


IN AREAS 


* 




*. MATCH .* 
*. .* 


X 




*. .* 


***** 




* NO 


*DE * 




. **** 


* D4* 




. * 


* * 




..X* E2 


* 




* 
**** 




****H2** ******* 


YES 


* 








RETURN 




* 






* 


************** 



*•** 

* * 

* H3 4 

* * 
*•** 



ADDRESS 
OF PFKL 
PATTERN 



* SAVE * 
K* STATUS * 

* INFORMATION * 

* * 
***************** 



*****F4********** 
* USERS RTN * 
*-*-*-#-*-*-*-*-* 



***************** 



**** 

* 4 

* C4 I 

* 4 
**** 



* J 1 * . X . 

* * . 
**** . 

FUNER X TYFER 
4 4* **J1 ********** 

* SAVE * 

* STATUS * 

* INFORMATICN * 

* WAIT AT * 

* LOCATION 41 * 
***************** 



♦****J3**« ******* 

* * 

* SET BIT * 
♦PATTERN IN XIO * 

* COMMAND * 

* * 
***************** 



*****K3**** ****** 



***************** 



*****K4 ********** 



***************** 



****K5********* 

► * 
* RETURN * 

► * 
*************** 
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Chart HB. 



GSP08 - Light Pen and Order Controlled Direct Entry Subroutine 



****A1 ********* 

* * 

* GSP08 * 

* * 
*************** 



**** 

* * 

* D3 * 

* * 
**** 



► ORDER 

CONTROLLED 
CATTENTIGN. 



.X*. SWITCH CLOSED.*. 



GSP09 
ACTIVE 
(TRKDE) 



**** . 

* * . 

* C4 *.X. 



GSP09 
ACTIVE 
(TRKDE) 



* INTERRUPT * 

ON TRACKING 
*. SYMBOL .4 



**** 

* * 

* E5 *X. 
f * 

**** 



.* ARE *. 
.* LIGHT PEN *. 
. ATTENTIONS . 
*. ENABLED .* 



.* TRACKING *. 
. SYMBOL 
*. DISPLAYED.* 



* Dl *.X. 



•VERIFICATION*. 

». SUBROUTINE . 

*. LOADED .* 



* El *.X. 

* * . 
**** . 

G8020 X 

*****E1 ********** 

* SET ISSDE * 

* TO INDICATE * 

* ORDER * 

* CONTROLLED * 

* ATTENTION * 
***************** 

**** 



* F 1 * • X 



**** 
G8030 X 

*****F 1 ********** 

* * 

* SET OFF * 

* EXEC BIT IN * 

* DSP IN * 

* * 
***************** 



****G1 ********* 
* RETURN * 



* INTERRUPT * 

ON SCANNING 
*. PATTERN .* 



INTERRUPT 

IN IMAGE 

. ENTITY . 



*****F2********** 

* DUMMY CODE * 

* TO PREVENT * 
♦TIMING PROBLEM * 
*CAUSEO BY LOCPU* 

* OR LOCUD * 
***************** 



*****G 2********** 

* * 

* NO-OP BRANCH * 
*(SDS) TO IMAGE * 

* ENTITY * 

* * 
***************** 



K DETECT * 

IN TRACKING 
». ENTITY .* 



*****D5********** 

* * 

* NO-OP BRANCH * 

* <SD4) TO * 
♦TRACKING SYMBOL* 

* * 
***************** 



* YES 


* NO 


*** 


» 






**** . 


* 




**** . 




* * . 


* G3 


* 


*HB * 




* E4 *.X. 


* 


* 


* E5 *.X. 




* * . 


**** 


* * 




**** . 






**** . 


X 


G8605 X 




G8510 X 


*****E 3**** ****** 
* * 


♦****E4 ********** 
* * 






*****E5********** 
* SET ISSDE TO * 


* NO— OP ORDER * 


* SET POINTERS * 






* INDICATE * 


*OR STORE BLANK * 


*TO ALL ENTITIES* 






* PROCESSED BY * 


* IN ORDER * 


* TO ZERO * 






* DIRECT ENTRY * 


* * 


* * 






* SUBROUTINE * 


***************** 


***************** 






***************** 


'. **** 


**** . 






. **** 


. * * 


*HB * 








..X* E5 * 


* F4 *.X. 






. .X* Fl * 


* * 


* * . 








**** 


**** X 
G8610 .*. 

F4 *. 
.* ARE *. 






**** 

*****F5********** 
* * 




.* LIGHT PEN *. YES 




* NO-OP ALL * 




*. ATTENTIONS • ♦ 






X* BRANCHES IN * 




*. ENABLED .* 






♦SYSTEM DISPLAY * 


**** 


*. .* 






* * 


* * 


*. .* 






***************** 


* G3 * 


* NO 








* * 


. **** 






• ♦ ♦+♦ 


**** 
X 


. * * 
..X* ES * 
* * 
**** 






• * * 
..X* Fl * 
* * 
**** 



.* DETECT ON * 

*.GSB TO GCHAR 

*. SUBR. .* 



*****G4********** 

* STORE * 

* DETECT * 
.X* CHARACTER IN * 

* DCHAR IN GCOM * 

* ,* 
***************** 



**** 










• 


* * 












* HI *... 










X 


* * 










**** 


**** X 










* * 


.*. 










* E5 ♦ 


HI ♦ . 










♦ * 


.♦DETECT *. 










**** 


.* IN *■ 


NO 








♦ .VERIFICATION . 


*. 










*. SUBR. .* 












*. .♦ 










**** 


*. .♦ 




X 






* * 


* YES 




**** 




* J2 * 






* 


* 




* * 


# 




* El 


* 




**** 






* 


* 






• 




**** 




• 


X 










X 


*****J1 ********** 






*****J2 ********** 


♦GSP12 


* 






♦GSP09 /HC+ 












*—*—*—*—*—*—*—* 


* VERIFICATION 


* 


... 




* 


TRKDE ♦ 


* DIRECT ENTRY 


* 






♦UPDATE TRACKINGS 


* SUBROUTINE 


* 






* 


SYMBOL ♦ 


*************** 


** 


X 




***************** 



♦-♦—♦-*—*-*-*-*-* 

* SCNDE *. 

* REMOVE SCAN * 

* PATTERN ♦ 
***************** 



****K2** ******* 

* ♦ 

* RETURN ♦ 

* ♦ 
*************** 

TO DSPYN 



■* ANY DATA *. YES 
.IN GSP03 SAVE.*.... 
*. AREA .♦ 



G8800 X COMMON 

*****J3*** *****♦♦ 
*GSP03 /KB* 

*—*—*—*—*-*—*—*—* 

* SEARCH ♦ 

* function: find * 

* ECCB ♦ 
***************** 



ECCB FOUND 



***** 
*HB1^ 
♦ Al* 



*****H4********** 

♦ ♦ 

♦ S AV E ♦ 
X* DATA WITHIN * 

* GSP08 * 

* ♦ 
♦♦♦♦*♦♦♦♦♦♦*♦*♦** 



.* WAS DATA 
. SAVED FOR 
*. GSP03 



, YES * RESTORE * 
.*.... ....X* DATA TO GSP03 * 

* SAVE AREA * 

♦ ♦ 
♦♦♦♦♦♦♦♦********* 



*HB * 
* K4* 
***** 
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•Chart HB1. GSP08 - Light Pen and Order Controlled Direct Entry Subroutine (continued) 



**** 

* i 

* A4 < 



. * ECCB FOR 
MESSAGE 
*. ENTITY 



**** 

* * 
.X* E2 * 

* * 

**** 



******************** 
♦RE-ENTERABLE CODE * 

♦ REPRODUCED ON * 
♦CHARTS HB1 AND HB2* 
♦IN ORDER OF FLOW ♦ 

♦ FOR CLAR ITY * 
*♦♦♦*»+♦*♦♦♦♦*♦*♦♦♦♦ 



♦ ECCB FOR * 


YES 


MESSAGE 


♦ • • • • 


♦. ENTITY .+ 




♦• .♦ 






X 


♦ NO 


♦ ♦*♦ 








* E4 * 






• 


♦ *♦♦ 



.* ECCB *. 
.♦FOR INDEX- 
• CONTROLLED 
♦. ENTITY 



*****B2*** ******* 

♦GSPll /HD* 

*-♦-+-♦-♦-♦—♦-*-* 

• X* SCAN INDEX- *. 

♦ CONTROLLED ♦ 

♦ ENTITY ♦ 
***************** 



B4 *. *****B5***** 

.* ECCB *. *GSP1I 

.♦FOR INDEX- *. YES *-*_*_*_*_*_ 

. CONTROLLED .* X* SCAN I NDE 

*. ENTITY .* * CONTROLLE 

*• •* * ENTITY 

*. .* ************ 
* NO 



***** 

/HD* 

*-*-* 



*****C2* ********* 



.* ECCB ♦ 












♦FOR LEVEL- 




YES 




















*. ENTITY 


♦ 




X 


* TO ZERO * 


• * • 










* * 












***************** 




♦ NO 






• 




**** 

* * 

* E2 * 

* * 
*♦** 



.* ECCB *. 
.♦FOR LEVEL- 
. CONTROLLED 
*. ENTITY 



.* ECCB *. 
» FOR 

CONTROLLED 
K. ENTITY 



.+ ECCB *. 
* FOR 

CONTROLLED 
*. ENTITY 



SET 

IDXCT IN GCOM 

TO ZERO 

*************** 



* E4 *.X 



**** 



.* ECCB *. 
* FOR 

SUBROUTINE 
► . ENTITY 



.X* 



*****E 2** ******** 

* SET * 

*CODE INDICATING* 

ECCB TYPE * 

DETERMINED BY * 

TESTS * 

*************** 



♦****E4 ********** 

* SET * 
♦CODE INDICATING* 

* ECCB TYPE * 

* DETERMINED BY * 

* TESTS * 
***************** 



**** • 

X 
►****F1 ********** 

* * 

> STORE CORVAL ♦ 
UN CECV, IELCV.* 

* AND ISBCV * 

> * 
***************** 



.♦ ECCB *. 




* * 


.♦ FOR ANY ♦. 


YES 










♦. ENTITY .* 






♦. .♦ 




* * 


*. .* 




***************** 


* NC 




**** 

* * 

* H2 *. . . 

* * . 


X 




**** . 






G8740 X 






*****H£*** ******* 


.* ECCB *. 






. + FOR *. 


YES 




*• SUBROUTINE .* 










* SUBROUTINE * 






. * ♦ 






X ***************** 


* NC 




***** 


**** . MESSAGE 




*HB1* 






* H2* 



**** 

.X* GS * 

* * 

**** 



• *• 






G87C'2 


.* ECCB * 






*****F5 ******** 

4 


FOR ANY 
CONTROLLED 


* 


YES 


* SET ISBCV TO 


. ENTITY 

*. .* 


* 




* CORVAL IN CECV 

* 


*. .* 
+ NO 






*************** 

**** . 
*HB * 

* GS *.X. 

* * . 


X 






**♦♦ X 


.*. 

G4 *. 
.* ECCB * 






G877S .*. 

GS *. 


FOR 
SUBROUTINE 
. ENTITY 


*. 

* 


NO 
*• . . . 


.♦ WAS DATA *. 
*. SAVED FOR 
*. GSP03 .* 



♦ *♦♦ 
Gee40 

*****ji 

*GSP03 



SEARCH 

FUNCTICN NEXT 

OUTER ECCB 

*************** 



GSP09 
ACTIVE 
(TRKDE) 



.* DETECT * 

♦.WITHIN TRKDE 
*. GSP09 .* 



*****J4********** 

* * 

* STORE BRANCH * 

. X* TO SUBROUTINE *. 

* FOR SEARCH * 

* * 
***************** 



* RESTORE * 

* DATA TO GSP03 * 

* SAVE AREA * 

* * 
***************** 



***** 
*HB * 
* F4* 



***** 
*HB * 
* Al* 



ECCB FOUND 



***♦* 

♦ HE * 

* K4* 



*****K3**** ****** 

* * 

* NO-OP * 

* BRANCH TO ♦. 

* SUBROUTINE * 

* * 
***************** 



WAS DATA 

SAVED FOR 

GSP03 



*****K5********** 

* * 

* RESTORE * 
X* DATA TO GSP03 * 

* SAVE AREA * 

* * 
*v *************** 



***** 
*HBl * 
* ES* 



***** 
*HB * 
* E5* 
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Chart HB2. GSP08 - Light Pen and Order Controlled Direct Entry Subroutine (continued) 



**** 

*HB2* 

* Al *... 

* * . 
**** . 

Geeoo x 

*****ai ********** 

*GSP03 /KB* 

*-*-*-*-*-*-*-*-* 

* SEARCH * 

* FUNCTION NEXT * 

* OUTER ECCB * 
***************** 



*********************************** 



ECCB FOUND 


." 


y... . 




* 




*. .* 






*. .* 




X 


* YES 




***** 

*HB * 


. 




* K4* 



ECCB FOR 
MESSAGE 
. ENTITY 



******************* 
♦RE-ENTERABLE CODE* 
♦REPRODUCED IN * 

♦ORDER OF FLOW * 

♦FOR CLARITY * 

♦J 2 IS LOOP TO ♦ 

♦FIND CONTROLLED ♦ 
♦ELEMENT ECCB * 

******************* 



.* ECCB *. 

•♦FOR INDEX- 

»• CONTROLLED 

*. ENTITY . 



*-*-*-*-*-♦-♦-♦-♦ 
<♦ SCAN INDEX- ♦ 

* CONTROLLED * 

♦ ENTITY * 
***************** 



.* ECCE *. 
.♦FOR LEVEL- *. YES 
. CONTROLLED .*.... 

*. ENTITY .* 



.* ECCB ♦« 
► FOR 

CONTROLLED 
*. ENTITY . 



. YES X ♦ SET ♦ 
..........X* IDXCT IN GCCM ♦ 

* TO ZERO ♦ 

♦ ♦ 
***************** 



* Gl *.X. 

* * . 
♦ ♦♦♦ . 

X 
*****G1 ********** 

* SET * 
*CODE INDICATING* 

* ECCB TYPE * 

* DETERMINED BY ♦ 

* TESTS ♦ 
***************** 



*********************************** 



.* ECCB ♦. 
.♦ FOR 
♦ . CONTROLLED 
*. ENTITY • 



.* ECCB *. 
% FCR 

SUBROUTINE 
K. ENTITY . 



*****H2********** 

* * 

* SET IELCV TO * 
X* ZERO. STORE *• 

♦CORVAL IN CECV ♦ 

* * 
***•*♦*******♦♦♦* 



G8750 G8765 

*****J2********** 

♦ CONTINUE ♦ 

♦ SEARCH UNTIL ♦ 
. ..X* ECCB FOR ♦ 

♦ CONTROLLED ♦ 

♦ ENTITY FOUND ♦ 
***************** 



***** 

♦ HBI ♦ 

* G5* 
* * 

* 

G8769 

*****J3******** 

♦ STORE 

♦ CORVAL OF 

♦ ELEMENT IN 

♦ IELCV. 
************** 


♦ ♦ 

♦ 
♦ 


G8772 

*****J4 ********** 

* * 

* STORE CORVAL * 


♦ 

♦ 

!•♦♦ 


* IN CECV * 

* * 
**********♦♦♦♦♦** 



***** 

♦ HBI* 

* H2* 



***** 
♦HBI* 
* G5* 
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• Cnart HC. GSP0 9 - Scanning Pattern and Tracking Symbol Direct Entry Subroutine 



****A1 ********* 
» * 

► TRKDE * 

► 4 
*************** 



.* *. **** 

* CTLTK *. YES * * 

INTERRUPTED .*....X* C4 * 



*****C1 ********** 

* * 

* COMPUTE * 

* DISTANCE PEN * 

* HAS MOVED * 

* * 
***************** 



*****D1 ********** 

* * 
•* COMPUTE * 
(■AVERAGE X ANO Y* 

* INCREMENT * 

* * 
***************** 



.* DISPLACE 
• •X*. AND Y 

♦.DISPLACE 



*• FREE AXIS 



* SET Y * 
K* DISPLACE TO *. 

* ZERO * 

* * 
***************** 



♦ .VERTICAL AXIS.* ...X* 



SET X 
DISPLACE TO 

ZERO 



***************** 



♦SET Y DISPLACE * 
•X* TO POSITIVE X *. 

* DISPLACE * 

* * 
** * 4* 4* ********** 



*****K1 ********** 

* * 
♦SET Y DISPLACE * 

* TO NEGATIVE X *. 

* DISPLACE ♦ 

* ♦ 
***************** 



♦SET START TIMER* 

♦ IN SYSTEM * 

♦ DISPLAY TO ♦ 

♦ NO-OP ♦ 
***************** 



*****C3********** 

* SET MBA * 

♦ ORDER IN * 
♦TRACKING SYM TO* 

* NEW POSITION * 

♦ * 
***************** 



*****D3********** 

* SAVE NEW * 

♦ ABSOLUTE ♦ 

* POSITION OF ♦ 
♦TRACKING SYMBOL* 

♦ * 
***************** 



*****E3********** 

* COMPUTE AND * 

* SAVE UNSIGNED ♦ 
♦MAGNITUDE OF X * 

* AND Y * 

* DISPLACEMENT * 
***************** 



.*X OR Y *. 



*****A4********** 

* * 

* RESET START * 
•X*TIMER IN SYSTEM* 

♦ DISPLAY ♦ 

♦ ♦ 
♦*♦♦♦♦♦♦♦♦*♦*♦♦♦* 



.LCPOS, LOCNO.. YES 
. LOCPN ...... 

♦ INTERRUPTED* 



* C4 ♦.X. 

* * 
**** . 

EXITI X 

*****C4 ********** 

* SET ISSDE TO ♦ 

* INDICATE GSP * 

* PROCESSED BY * 

* DIRECT ENTRY * 

* SUBROUTINE * 
***************** 



****D4 ********* 

* « 

* RETURN * 
► * 

*************** 

TO GSP08 



LPSCN 

*****B5********** 

* STORE X AND Y ♦ 

* COORDINATES ♦ 
...X* FROM MBA IN ♦ 

* TRACKING ♦ 

* ROUTINE ♦ 
***************** 



*****C5********** 

♦ TURN * 

♦ OFF LOCNDt ♦ 

♦ LOCPN, EXEC ♦ 

♦ INDICATORS IN ♦ 

♦ DISPN ♦ 
***************** 



*****D5**** ****** 

* SET LINKS TO * 

* IMAGE ENTITY * 

* ANO TRACKING * 

* SYMBOL IN SYS * 

* OISP TO NOP * 
***************** 



*****ES********** 



♦ INDICATE * 
.♦PRIORITY LIGHT ♦ 

♦ PEN ATTENTION ♦ 

♦ ♦ 
***************** 



* STORE ADDRESS * 

* OF TRACK IN * 

* NOADR IN GCOM * 

* * 
***************** 



.* MAGNITUDE ♦. 

♦.GREATER THAN . 

♦.INCREMENT.* 



.♦OUTPUT *. 
.♦ *. YES 

*. MODE=AB SOLUTE. *.. .. 



*****G5********** 

* * 

* STORE ♦ 
•X*ORDERS IN TEMP * 

* AREA * 

* ♦ 
**♦♦♦**********♦* 



*♦♦* 
AUPDT 

*****H5********** 



♦ PUT ABSOLUTE ♦ 
. X*DRDER IN TRACK ♦ 

♦ ENTITY ♦ 

♦ ♦ 
***************** 



TRKER .*. IUPOT 


X 


J3 ♦. *****J4********** 


.* *. * 


♦ 


.* 4 *. YES * PUT 


INCREMENT ♦ 


♦.WORDS LEFT IN.*.... ♦ORDER IN TRACK ♦ 


♦ . ICA .♦ . * 


ENTITY * 


*. .* . * 


♦ 


*. .* X ***************** 


* NO *♦♦♦ 




. * * 




. * F4 * 




. * * 


X 


. **** 


**** 




* * 


X 


♦ C4 * 


*****K3**** ****** 


♦ * 


♦ SET ♦ **** 


♦ ♦** 


* TRACKING SYM * * * 




* SUBR TO *....X* C4 * 




* INDICATE ICA * * * 




* FULL * **** 





***************** 
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************************ 

* Base Address of GCOM * * 

************************ J . J . J . J .***** 

****************** ATTENTION HANDLING FIELDS ************************** 

0000 



LPDE 

OCDE 

ANDE 

ENDDE 

CANDE 
PFDE 

ATNDT 

ATNAD 
ATNTP 



ATNDS 
ATNX 
ATNY 
ATNPF 

ATNOV 

ATNAN 
DCHAR 

ISSDE 



4 
5 

6-11 

6 
7 



Address of light pen direct entry subroutine 
(set by ICAIN) 

Address of order controlled direct entry 
subroutine (set by ICAIN) 

Address of alphameric keyboard direct entry 
subroutine (set by ICURS) 

Address of END key direct entry subroutine 
(user provided) 

Address of CANCEL key direct entry 

Address of program function keyboard direct 
entry subroutine (user provided) 

Attention data set by XIO Read Status and used 
by DSPYN 

Address of attention order 

Attention type (bits 0-10) 



0000 

0000 

0000 

0000 
0000 



0000 
0000 



bit pattern fcr bits 0-10 

0-order controlled attention 

1-alphameric keyboard 

2-detect attention, light pen enabled 

4-detect status, light pen disabled 

7-light pen switch closed when Start Timer 

instruction entered 
8-busy 

9-character mode (l=character; 0=graphic) 
10-graphic mode (l=point; 0=vector) 



7 Attention order address displacement (bits 14-15) 



ICACB 



8 Attention x coordinate (bits 6-15) 

9 Attention y coordinate (bits 6-15) 

10 Attention program function keyboard 
(bits 3-7) 

10 Attention program function keyboard overlay 
(bits 8-15) 

11 Attention alphameric key (bits 3-7) 

11 Detected character on light pen attention 
(set by GSP08) 

12 Internal service subroutine indicator 
(bits 12-15) 

bit pattern fcr bits 12-15 

0000 not processed by direct entry subroutine 

0001 priority light pen attention 
0010 light £ en attention for program 
0100 order controlled for program 

1000 processed by direct entry subroutine 

13 Address of ICA ECCB 



0000 
0000 
0000 

0000 

0000 
0000 

0000 



0000 
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IMECB 


14 


OADDR 


15 


NOADR 


16 


ICACV 


17 


IECV 


18 


CECV 


19 


IELCV 


20 


SUBCV 


21 



ISBCV 

PFKI1 

PFKI2 
SATEN 



RQNDA 
CMECB 

DSPIN 



22 

23 

24 
25 



26 
27 



Address of image entity ECCB 0000 

Current order address 0000 

Next order address (to be generated) 0000 

Correlation value for ICA ECCB 0000 

Correlation value for image entity 0000 

Correlation value for controlled entity 0000 

Correlation value for inner element 00 00 

Correlation value for subroutine or tracking 0000 
entity 

Correlation value for inner element of 0000 

subroutine or tracking entity 

Indicate which program function keyboard lights 0000 
are enabled. 

Bits 0-31 correspond to lights 0-31 

Word to indicate attention status (bits 11-15) 

bit pattern for bits 11-15 

00000 all attentions disabled 

00001 order controlled interrupts enabled 
00010 light pen attentions enabled 
00100 END key enabled 

01000 alphameric keyboard enabled 
10000 program function keyboard enabled 

Address of attention queue in DSPYN 0000 

Address of the ECCB for the message entity in 0000 
which there is a GB to the cursor 



28 Display word indicator (bits 0-6) 

bit pattern for bits 0-6 
1000000 LCPOS 
0100000 TRACK 
0010000 LOCPN 
0001000 LOCND 
0000100 PROCESSING 
0000010 TMDSP 
0000001 EXEC 



0000 



******************* 
NAGAP 29 



LAGAP 



GENIN 



LGXI 



30 



IMAGE GENERATION FIELDS **************************** 

0000 



Address of next available Word in ICA for 
storing graphic order 



Address of last available word in ICA for 
storing graphic order 



31 Generation mode indicator word (bits 14-15) 

bit pattern for bits 14-15 

norma 1 

01 update 
10 external 

32 Last generated x integer 



0000 



0000 



0200 
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